专业报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

此主题相关图片如下：qq20241029-114053.png

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

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

知道了,这样就对了，将表格对象加入到报表中后再执行后面代码

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

doc.Preview() '预览

老师在请教一下，rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '内容水平居中，这个代码是表格所有内容居中了，能否单独指定某个单元格内容居中

比如我要：rt.Cells(0, 0).Text = "机构名称" 内容居中

可以了这样就行：

rt.Cells(0, 0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

老师，专业报表中，逻辑列，这样写：

rt.Cells(2, 3).Text = IIf(r("是否总公司出具") = True, "?", "□")

为什么为False时，方框很小呢？用Word报表没有这样的情况。

此主题相关图片如下：4a54dada75fecc048f1137ba02a894d3.png

[此贴子已经被作者于2024/10/29 14:27:37编辑过]

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

在请教一下老师，我勾选多行生成报表时，怎么一次生成多页，现在是生成一个后，关闭了才能生成另外一个。我想要的效果是：生成一个报表，多页显示。

代码有点长，只能放文本里面了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:代码.txt

doc.Preview() 放到循环外面

主题：专业报表