Dim b1 As DataTable = DataTables("运费明细表")
Dim nm As List (of String) = b1.GetValues("结算单编号")
For i As Integer = 0 To nm.count - 1
If nm(i) IsNot Nothing Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\G215-运费-凯达运输队-明细表-模板.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(4,22).Value = "<结算单编号 = " & nm("结算单编号")(i) & ">"
Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports\凯达\" & nm("结算单编号")(i) & " .xls")
End If
Next
---------------------------
版本:2018.10.9.1
---------------------------
代码执行出错,错误信息:
System.InvalidCastException: 从字符串“结算单编号”到类型“Integer”的转换无效。 ---> System.FormatException: 输入字符串的格式不正确。
在 Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
在 Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
--- 内部异常堆栈跟踪的结尾 ---
在 Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
在 UserCode.Test()
---------------------------
确定
---------------------------
[此贴子已经被作者于2018/12/27 10:53:59编辑过]