Dim dr As DataRow = Tables("表A").current.DataRow
If dr("设备名称") Like "自*" Then
Dim tm As String = ProjectPath & "Attachments\记录1模板.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\记录1.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
wrt.Build() '生成报表
wrt.Show() '显示报表
Else
Dim tm As String = ProjectPath & "Attachments\记录2模板.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\记录2.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
wrt.Build() '生成报表
wrt.Show() '显示报表
End If
当我只选一个记录打印WORD报表时,可以正确选择显示报表,但是当我用鼠标选取多行记录打印时,只有用鼠标选取的第一行记录的可以正确选择显示报表,其他行的显示都会与第一行显示的一样。 请问题能不能解决多行打印时,每一行记录也可以正解选择所显示的报表。
如果能解决,能不能与这段代码结合
Dim t As Table = Tables("表A")
For i As Integer = t.TopPosition To t.BottomPosition
Dim fdr As Row = t.Rows(i)
If fdr.IsNull("报告编号") = False Then
fdr("打印次数") = val(fdr("打印次数")) + 1
e.Form.Controls("Label1").Text = val(fdr("打印次数"))
End If
Next
[此贴子已经被作者于2015/5/22 7:32:27编辑过]