'打印所有行，并生成设备名称+日期为文件名的文件
Dim Products As List(Of String)
Products = DataTables("记录").GetValues("设备名称")
For Each Product As String In Products
Dim tm As String = ProjectPath & "Attachments\申请表.doc" '指定模板文件
Dim fl As String = ProjectPath & "报表\" & "申请表" & Product & format(Date.today, "yyyyMMdd") & ".doc" '指定目标文件
Dim wrt As New WordReport(Tables("记录"), tm, fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表
Next
请教，以上代码是将数据库全部根据“设备名称”生产不同申请日期的文件，但实际使用过程中，部份已经做成了报表，我只想生成鼠标选中的行。这样后期方便一些。但不会记了，请老师给改一下。
谢谢了！
加好友 
发短信
Post By：2022/8/1 22:18:00 [显示全部帖子]
