Dim t As Table = Tables("日报表") If t.rows.count > 0 Then Dim tm As String = ProjectPath & "Attachments\test.doc" '指定模板文件 Dim fl As String = ProjectPath & "Reports\练习.doc" '指定目标文件 Dim wrt As New WordReport(Tables("日报表"),tm,fl) '定义一个WordReport Dim sum1 As Double = DataTables("日报表").Compute("Sum(资金可用余额)","日期 = #" & Date.Today & "#") Dim sum2 As Double = DataTables("日报表").Compute("Sum(当天收入截至当天17时_现金回款额)","日期 = #" & Date.Today & "#") Dim sum3 As Double = DataTables("日报表").Compute("Sum(支出合计)","日期 = #" & Date.Today & "#") Dim str As String = "当日资金可用余额总计: " & sum1 & "万元,截至当日17时回款总计:" & Sum2 & "万元,当日支出总计" & sum3 & "万元" wrt.Replace("[第一部分]", str) str = "" Dim i As Integer = 1 For j As Integer = t.TopPosition To t.BottomPosition Dim dr As Row = t.rows(j) str &= i & "?" & dr("项目名称") & ":(1)当日资金可用余额:" & Format(dr("资金可用余额") ,"0.00") & "万元;" str &= vbcrlf i += 1 Next wrt.Replace("[第二部分]", str) wrt.Build wrt.Show() '显示报表 end if
|