打印数据重复行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

为什么会出现重复行数据，怎么改

表格数据是这样的：

此主题相关图片如下：微信图片_20200729101952.png

打印预览的数据是这样的：

此主题相关图片如下：微信图片_20200729102017.png

打印代码是这样的：

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))

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("发货数量")

Tables("销售发货_table3").DataTable.ResumeRedraw()

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

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)

Book.Save("c:\reports\test.xls")

Dim Proc As New Process

Proc.File = "c:\reports\test.xls"

Proc.Start()

Else

MessageBox.show("此销售发货单未审核,不能打印")

End If

[此贴子已经被作者于2020/7/29 10:24:01编辑过]

没看懂到底是什么问题？

此主题相关图片如下：微信图片_20200729102556.png

现在能看到不，打印出来的数据转换成横向报表，应该一行数据就生成好了，现在生成了重复行

For Each v As String() In DataTables("销售发货明细表").GetValues("客户|订单号|制单号|发货日期|款号|颜色|销售单价|销售金额|折扣|销售发货单号",

销售金额都不一样，就是不同的行，不属于重复行

如果不加销售金额这一列，怎么显示销售金额

使用find根据单号再到表格里查一次

怎么写？是这样吗？

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)

Dim dr8 As DataRow = DataTables("销售发货明细表").Find("客户 = '" & dr1("客户") & "' and 订单号 = '" & dr1("订单号") & "' and 款号 = '" & dr1("款号") & "' and 销售发货单号 = '" & dr1("销售发货单号") & "'")

dr1("销售金额") = dr8("销售金额")

dr1("折扣") = v(7)

dr1("销售发货单号") = v(8)

For Each dr2 As DataRow In DataTables("销售发货明细表").Select("客户 = '" & v(0) & "' And 订单号 = '" & v(1) & "'and 制单号 = '" & v(2) & "'and 款号 = '" & v(4) & "' and 颜色 = '" & v(5) & "' and 销售发货单号 = '" & v(8) & "' ")

dr1("尺码_" & dr2("通码")) = dr2("发货数量")

Tables("销售发货_table3").DataTable.ResumeRedraw()

[此贴子已经被作者于2020/7/29 11:32:22编辑过]

销售金额列是表达式，为

[发货数量] * [销售单价] * IsNull([折扣],1)

用comput的方式计算几个尺码数量的合计销售金额，获取不到数？？

dr1("销售金额") = DataTables("销售发货明细表").Compute("Sum(销售金额)", "客户 = '" & dr1("客户") & "' and 订单号 = '" & dr1("订单号") & "' and 颜色 = '" & dr1("颜色") & "' and 款号 = '" & dr1("款号") & "' and 销售发货单号 = '" & dr1("销售发货单号") & "'")

哪个销售金额列是表达式？dr1("销售金额")里的？还是DataTables("销售发货明细表")里的

dim d as double = DataTables("销售发货明细表").Compute("Sum(销售金额)", "客户 = '" & dr1("客户") & "' and 订单号 = '" & dr1("订单号") & "' and 颜色 = '" & dr1("颜色") & "' and 款号 = '" & dr1("款号") & "' and 销售发货单号 = '" & dr1("销售发货单号") & "'")

msgbox(d) 有没有值？

主题：打印数据重复行