Dim Book As New XLS.Book(ProjectPath & "Attachments\遗属生活困难补助调整标准审批表.xls")
Dim t As Table = Tables("遗属调标")
Dim lst As new List(of String)
Vars("Cnt") = 0
Vars("金额") = 0
For i As Integer = t.TopRow To t.BottomRow
If lst.Contains(t.Rows(i)("死者姓名")) = False Then
Vars("Cnt") += 1
lst.Add(t.Rows(i)("死者姓名"))
End If
vars("金额") += t.Rows(i)("金额")
Next
Vars("DDate") = e.Form.Controls("DateTimePicker1").Value
Book.Build()
Dim fl = ProjectPath & "Reports\遗属调标\" & format(Date.now,"yyyy-MM") & "\" & format(Date.now,"yyyy-MM") & "遗属生活困难补助调整标准审批表.xls"
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2017/3/25 8:34:00 [只看该作者]
