[浏览完整版]
标题：专业报表
1楼
cd_tdh 发表于：2024/10/29 11:42:00老师专业报表后面增加文本怎么增加呢？把上面红框内容放到表格下面
此主题相关图片如下：qq20241029-114053.png
此主题相关图片如下：qq20241029-114053.png[此贴子已经被作者于2024/10/29 11:43:01编辑过]
2楼
有点蓝 发表于：2024/10/29 12:05:00代码？
3楼
cd_tdh 发表于：2024/10/29 12:10:00[此贴子已经被作者于2024/10/29 12:29:05编辑过]
4楼
cd_tdh 发表于：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() '预览
5楼
cd_tdh 发表于：2024/10/29 12:46:00老师在请教一下，rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '内容水平居中 ，这个代码是表格所有内容居中了，能否单独指定某个单元格内容居中
比如我要：rt.Cells(0, 0).Text = "机构名称" 内容居中
6楼
cd_tdh 发表于：2024/10/29 12:46:00可以了这样就行：
rt.Cells(0, 0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
7楼
cd_tdh 发表于：2024/10/29 14:26:00老师，专业报表中，逻辑列，这样写：
rt.Cells(2, 3).Text = IIf(r("是否总公司出具") = True, "?", "□")
此主题相关图片如下：4a54dada75fecc048f1137ba02a894d3.png
为什么为False时，方框很小呢？用Word报表没有这样的情况。
此主题相关图片如下：4a54dada75fecc048f1137ba02a894d3.png[此贴子已经被作者于2024/10/29 14:27:37编辑过]
8楼
有点蓝 发表于：2024/10/29 14:29:00字体的原因，考虑把字体设置大一点
9楼
cd_tdh 发表于：2024/10/29 17:16:00在请教一下老师，我勾选多行生成报表时，怎么一次生成多页，现在是生成一个后，关闭了才能生成另外一个。我想要的效果是：生成一个报表，多页显示。
代码有点长，只能放文本里面了。
10楼
有点蓝 发表于：2024/10/29 17:23:00doc.Preview() 放到循环外面