我在父表“分组”里设计了一个窗口,增加了一个按钮,按钮的单击事件代码:
Dim drs As List(of DataRow) = DataTables("分组").Select("分组 = #" & Date.Today & "#")
If drs.Count > 0 Then
Dim tm As String = ProjectPath & "Attachments\表A.doc"
Dim fl As String = ProjectPath & "Reports\表A.doc"
Dim wrt As New WordReport(Tables("分组"),tm,fl)
For Each dr As DataRow In drs
wrt.BuildOne(dr)
Next
wrt.Show()
End If
要按子表“表A”里“分组”列相应组别生成报表,烦请给修改套用一下这个代码,因为我还看不太懂