上图是数据库格式,下图是word报表格式。
Dim r As Row=Tables("报关").current
Dim Values() As
String
Dim i As Integer=0
Dim tm As String = ProjectPath & "Attachments\货运委托.doc" '指定模板文件
Dim fl As String = "c:\Reports\word报表.doc"
'指定目标文件
Dim wrt As
New WordReport(Tables("报关"),tm,fl) '定义一个WordReport
wrt.Build() '生成报表
wrt.Show() '显示报表
这段代码如何写,才会显示数据库那样的格式。
此主题相关图片如下:无标题.png
