打印代码是这样的：
If Tables("销售发货_table1").Current("审核") = True Then
Dim dtb As New DataTableBuilder("横向销售明细")
If DataTables.Contains("横向销售明细") = False Then '如果表C没有加载
DataTables.Load("横向销售明细") '加载表C
End If
dtb.AddDef("客户", Gettype(String), 60)
dtb.AddDef("订单号", Gettype(String),65)
dtb.AddDef("制单号", Gettype(String),65)
dtb.AddDef("发货日期", Gettype(Date))
dtb.AddDef("款号", Gettype(String), 60)
dtb.AddDef("颜色", Gettype(String),60)
dtb.AddDef("销售单价", Gettype(Decimal),25)
dtb.AddDef("销售金额", Gettype(Decimal),25)
'dtb.AddDef("通码", Gettype(Decimal),25)
dtb.AddDef("折扣", Gettype(Decimal),25)
dtb.AddDef("销售发货单号", Gettype(String), 60)
For Each v As String In DataTables("销售发货明细表").GetValues("尺码","[销售发货单号] = '" & Tables("销售发货_table1").current("销售发货单号") & "'")
dtb.AddDef("尺码_" & v, Gettype(String))
Next
Dim br As DataRow
br = DataTables("销售发货明细表").Find("[销售发货单号] = '" & Tables("销售发货_Table1").Current("销售发货单号") & "'")
Dim ta As Table = Forms("销售发货").Controls("Table3").Table
ta.datasource = dtb.BuildDataSource
Tables("销售发货_table3").DataTable.StopRedraw()
For Each v As String() In DataTables("销售发货明细表").GetValues("客户|订单号|制单号|发货日期|款号|颜色|销售单价|销售金额|折扣|销售发货单号","[销售发货单号] = '" & Tables("销售发货_table1").current("销售发货单号") & "'")
Dim dr1 As Row = ta.AddNew()
dr1("客户") = v(0)
dr1("订单号") = v(1)
dr1("制单号") = v(2)
dr1("发货日期") = v(3)
dr1("款号") = v(4)
dr1("颜色") = v(5)
dr1("销售单价") = v(6)
dr1("销售金额") = v(7)
'dr1("通码") = v(8)
dr1("折扣") = v(8)
dr1("销售发货单号") = v(9)
For Each dr2 As DataRow In DataTables("销售发货明细表").Select("客户 = '" & v(0) & "' And 订单号 = '" & v(1) & "'and 制单号 = '" & v(2) & "'and 款号 = '" & v(4) & "' and 颜色 = '" & v(5) & "' and 销售发货单号 = '" & v(9) & "' ")
dr1("尺码_" & dr2("通码")) = dr2("发货数量")
Next
Tables("销售发货_table3").DataTable.ResumeRedraw()
Next
Dim dt As Table = Tables("销售发货_table3")
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
For c As Integer = 0 To dt.Cols.Count -1
Sheet(r +1, c).Value = dt.rows(r)(c)
Next
Next
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()
Else
MessageBox.show("此销售发货单未审核,不能打印")
End If
加好友 
发短信
Post By：2020/7/29 10:22:00 [只看该作者]
此主题相关图片如下：微信图片_20200729101952.png
