Foxtable(狐表)用户栏目专家坐堂 → 专业报表


  共有455人关注过本帖树形打印复制链接

主题:专业报表

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
专业报表  发帖心情 Post By:2024/10/29 11:42:00 [只看该作者]

老师专业报表后面增加文本怎么增加呢?把上面红框内容放到表格下面

图片点击可在新窗口打开查看此主题相关图片如下:qq20241029-114053.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2024/10/29 11:43:01编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/29 12:05:00 [只看该作者]

代码?

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2024/10/29 12:10:00 [只看该作者]


[此贴子已经被作者于2024/10/29 12:29:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2024/10/29 12:29:00 [只看该作者]

知道了,这样就对了,将表格对象加入到报表中后再执行后面代码
doc.Body.Children.Add(rt) '将表格对象加入到报表中
'加入审批人信息
Dim dr As DataRow = DataTables("用户管理").SQLFind("[职务] = '财务部制单' and [用户状态] = '启用'")
If dr IsNot Nothing Then
    Dim dr1 As DataRow = DataTables("用户管理").sqlFind("[职务] = '财务部经理' and [用户状态] = '启用'")
    If dr1 IsNot Nothing Then
        Dim dr2 As DataRow = DataTables("审核意见表").SQLFind("[表名称] = '" & "打投标保证金" & "' And [Id] = '" & r("Id") & "'", "审核日期 DESC")
        If dr2 IsNot Nothing Then
            Dim rx2 As New prt.RenderText '定义一个文本对象
            rx2.text = "机构制单:" & "        机构负责人:" & r("登记人") & "        集团财务制单:" & dr("姓名") & "        集团财务审核:" & dr1("姓名") & "        日期:" & Format(dr2("审核日期"), "yyyy-MM-dd")
            rx2.Style.FontSize = 10 '大体大小为10磅
            rx2.Style.TextAlignHorz = prt.AlignHorzEnum.Left '水平靠右排列
            rt.y = "Prev.Top + 10" '设置垂直位置
            doc.Body.Children.Add(rx2) '加入到报表中
        End If
    End If
End If
doc.Preview() '预览

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2024/10/29 12:46:00 [只看该作者]

老师在请教一下,rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '内容水平居中 ,这个代码是表格所有内容居中了,能否单独指定某个单元格内容居中
比如我要:rt.Cells(0, 0).Text = "机构名称" 内容居中

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2024/10/29 12:46:00 [只看该作者]

可以了这样就行:
rt.Cells(0, 0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2024/10/29 14:26:00 [只看该作者]

老师,专业报表中,逻辑列,这样写:
rt.Cells(2, 3).Text = IIf(r("是否总公司出具") = True, "?", "□")
为什么为False时,方框很小呢?用Word报表没有这样的情况。

图片点击可在新窗口打开查看此主题相关图片如下:4a54dada75fecc048f1137ba02a894d3.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2024/10/29 14:27:37编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/29 14:29:00 [只看该作者]

字体的原因,考虑把字体设置大一点

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2024/10/29 17:16:00 [只看该作者]

在请教一下老师,我勾选多行生成报表时,怎么一次生成多页,现在是生成一个后,关闭了才能生成另外一个。我想要的效果是:生成一个报表,多页显示。
代码有点长,只能放文本里面了。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt



 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/29 17:23:00 [只看该作者]

doc.Preview() 放到循环外面

 回到顶部
总数 25 1 2 3 下一页