- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 专业报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193965)
-- 发布时间：2024/10/29 11:42:00
-- 专业报表
老师专业报表后面增加文本怎么增加呢？把上面红框内容放到表格下面
此主题相关图片如下：qq20241029-114053.png
[此贴子已经被作者于2024/10/29 11:43:01编辑过]
-- 发布时间：2024/10/29 12:05:00
--
代码？
-- 发布时间：2024/10/29 12:10:00
--
[此贴子已经被作者于2024/10/29 12:29:05编辑过]
-- 发布时间：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() \'预览
-- 发布时间：2024/10/29 12:46:00
--
老师在请教一下，rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'内容水平居中 ，这个代码是表格所有内容居中了，能否单独指定某个单元格内容居中
比如我要：rt.Cells(0, 0).Text = "机构名称" 内容居中
-- 发布时间：2024/10/29 12:46:00
--
可以了这样就行：
rt.Cells(0, 0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
-- 发布时间：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编辑过]
-- 发布时间：2024/10/29 14:29:00
--
字体的原因，考虑把字体设置大一点
-- 发布时间：2024/10/29 17:16:00
--
在请教一下老师，我勾选多行生成报表时，怎么一次生成多页，现在是生成一个后，关闭了才能生成另外一个。我想要的效果是：生成一个报表，多页显示。
代码有点长，只能放文本里面了。
-- 发布时间：2024/10/29 17:23:00
--
doc.Preview() 放到循环外面