'先判断是否都填报了
Dim nms() As String = {"TextBox1"}
For Each nm As String In nms
If e.form.controls(nm).value = Nothing Then
messagebox.show("请填写完整资料打印")
Return
End If
Next
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
MessageBox.Show("1")
cmd.Comma ndText = "SE LECT 报检号 领用日期及编号 印刷流水号 From {列表项目} Wh ere 指定领用日期及编号='" & e.form.Controls("TextBox1").Value & "'"
dt = cmd.ExecuteReader() '生成一个临时表dt
MessageBox.Show("2")
dt.DataCols.Add("船名", GetType(String)) '生成3个临时列
dt.DataCols.Add("日期", GetType(Date))
dt.DataCols.Add("使用人", GetType(String))
MessageBox.Show("3")
For Each dr1 As DataRow In dt.DataRows '在已经生成的临时表中循环
If dr1("报检号").SubString(6, 1) = "A" Then '如果是入境
Dim dr2 As DataRow = DataTables("检疫资料").sqlFind("[入境签证编号] = '" & dr1("报检号") & "'")
If dr2 IsNot Nothing Then
dr1("船名") = dr2("中文船名")
dr1("日期") = dr2("入境签证日期及时间")
dr1("使用人") = dr2("入境检疫医师")
End If
ElseIf dr1("报检号").SubString(6, 1) = "C" Then '如果是出境
Dim dr3 As DataRow = DataTables("检疫资料").sqlFind("[入境签证编号] = '" & dr1("报检号") & "'")
If dr3 IsNot Nothing Then
dr1("船名") = dr3("中文船名")
dr1("日期") = dr3("入境签证日期及时间")
dr1("使用人") = dr3("入境检疫医师")
End If
End If
Next
Dim Book As New XLS.Book(ProjectPath & "Attachments\证书记录打印模版.xlsx")
Dim fl As String = ProjectPath & "Attachments\证书记录.xlsx"
Book.Build() '生成细节区
Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
我自己写了代码先生成一个临时表，然后再填充数据，现在黄色部分程序运行不过去。这种方式可行吗？还是有别的方式？
加好友 
发短信
Post By：2025/1/19 10:48:00 [只看该作者]
