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

Dim doc As New Printdoc '

Dim rt As prt.RenderTable'

rt = New prt.RenderTable

With Tables("主表.明细表")

For r As Integer = 0 To .Rows.Count - 1 '

rt.Cells(r + 1, 0).Text = .rows(r)("行分号")

rt.Cells(r + 1, 1).Text = .rows(r)("行内容")

End With

doc.Body.Children.Add(rt)

doc.Preview() '预览

执行上面代码，

问题一：编号和内容的间距太大，如何缩小？

问题二：标题如何加粗？

问题三：当("主表.明细表")的rows(r)("图示")的内容不为空，在文字显示图片，或另起一行显示图示都可以，如何实现？

此主题相关图片如下：专业报表.jpg

[此贴子已经被作者于2023/5/16 23:49:09编辑过]

主题：专业报表问题