蓝老师好!我对窗口表的勾选行生成报表时,又出现勾选任何一行,都出现第一行的图片,不知道是哪里的问题,麻烦老师再给看一下。谢谢!
代码:
Dim Filter As String = "标注 = true"
Dim cnt As Integer
cnt = DataTables("组织生活会").Compute("Count([标注])", Filter)
If cnt = 0 Then
msgbox("请勾选要生成的行!")
Else
Dim tm As String = ProjectPath & "Attachments\03组织生活会记录.docx"
Dim fileName As String = ProjectPath & "Reports\03组织生活会记录.docx"
Dim wrt As New WordReport(Tables("报表_table1"), tm, fileName) '定义一个WordReport
Dim drs As List(Of DataRow)
drs = DataTables("组织生活会").Select(Filter)
Dim dr As DataRow
For i As Integer = 0 To drs.Count - 1 '遍历所有行
dr = DataTables("组织生活会").DataRows(i)
wrt.ReplaceOne("[会议主题图片]", "[会议主题图片1]")
If i > 0 Then
wrt.ReplaceWithImage("[会议主题图片1]", ProjectPath & "Attachments\主题图片\" & DataTables("组织生活会").DataRows(i - 1)("会议主题图片"), 370, 260)
End If
wrt.BuildOne(dr)
' wrt.RecordsOnEachPage = 1
Next
wrt.ReplaceWithImage("[会议主题图片1]", ProjectPath & "Attachments\主题图片\" & dr("会议主题图片"), 370, 260)
wrt.Show() '显示报表
ShowAppWindow("预览.docx", 1) '最大化显示此窗口
End If