Dim d As Date = Date.Today
If Forms("导航").Opened
Dim trv As WinForm.TreeView = Forms("导航").Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then
Dim dr As DataRow = trv.SelectedNode.DataRow
d = new Date(dr("年"),dr("月"),1)
End If
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\月工资打印模板.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\月工资打印模板.xls"
Dim Sheet2 As XLS.Sheet = Book.Sheets(1)
Sheet2(2,4).Value = "第" & Format(d,"MM") & "月份"
Sheet2(2,7).Value = d '写入打印时间
Book.Build() '生成报表
'Book.Save(fl)
'Dim Proc As New Process
'Proc.File = fl
'Proc.Start()
'Dim Book As New XLS.Book(ProjectPath & "Attachments\月工资打印模板.xls") '打开模板
'Dim fl As String = ProjectPath & "Reports\月工资打印模板.xls"
Dim Sheet1 As XLS.Sheet = Book.Sheets(0)
Sheet1(2,7).Value = "第" & Format(d,"MM") & "月份"
Sheet1(2,14).Value = d '写入打印时间
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
老师：出现如下问题
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.8.3.1
错误所在事件：
详细错误信息：
对象不能从 DBNull 转换为其他类型。
加好友 
发短信
Post By：2017/8/12 18:45:00 [只看该作者]
