Dim tm As String = ProjectPath & "Attachments\电力电缆试验报告.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\电力电缆试验报告.doc" '指定目标文件
Dim wrt As New WordReport(Tables("电力电缆试验报告"),tm,fl) '定义一个WordReport
Dim sum As Integer
Dim t As Table = Tables("电力电缆试验报告")
Dim nms As new Dictionary(of String,Integer)
For i As Integer = t.TopRow To t.BottomRow
If nms.ContainsKey(t.Rows(i)("工程名称")) = False AndAlso t.Rows(i).IsNull("工程名称") = False Then
nms.Add(t.Rows(i)("工程名称"),i)
End If
Next
For Each name As String In nms.Keys
For Each dr As DataRow In DataTables("电力电缆试验报告").Select("工程名称='" & name & "'")
wrt.ReplaceOne("[结果" & dr("相位A") & "]",dr("结果A"))
wrt.ReplaceOne("[结果" & dr("相位B") & "]",dr("结果B"))
wrt.ReplaceOne("[结果" & dr("相位C") & "]",dr("结果C"))
wrt.ReplaceOne("[打压等级" & dr("相位").SubString(0,1) & "]",dr("打压等级"))
wrt.ReplaceOne("[持续时间" & dr("相位").SubString(0,1) & "]",dr("持续时间"))
wrt.ReplaceOne("[泄露电流" & dr("相位").SubString(0,1) & "]",dr("泄露电流"))
Next
wrt.BuildOne(t.Rows(nms(name)))
wrt.Show() '显示报表
Next
加好友 
发短信
Post By：2017/5/26 21:05:00 [显示全部帖子]
