以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186635)
--  作者：lin98
--  发布时间：2023/5/16 20:06:00
--  专业报表问题
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)("行内容")
    Next
End With
doc.Body.Children.Add(rt)

doc.Preview() \'预览

执行上面代码，

问题一：编号和内容的间距太大，如何缩小？
问题二：标题如何加粗？
问题三：当("主表.明细表")的rows(r)("图示")的内容不为空，在文字显示图片，或另起一行显示图示都可以，如何实现？


图片点击可在新窗口打开查看此主题相关图片如下：专业报表.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2023/5/16 23:49:09编辑过]
--  作者：有点蓝
--  发布时间：2023/5/16 20:18:00
--  
1、http://www.foxtable.com/webhelp/topics/1204.htm