主题：[求助]

明白了，谢谢。版主

 

我把这个改成如下 ，倒是是包含supplier是空白的，怎么增加

 

Dim drs = t1.DataTable.Select("[_Identify] In (" & str & ") And supplier <> 'GSS'", "ShippingNO,NameinChinese,Unit,HS")

 

Dim drs = t1.DataTable.Select("[_Identify] In (" & str & ") And (supplier <> 'GSS' or supplier is null)", "ShippingNO,NameinChinese,Unit,HS")

 

谢谢，最后再问一下，如果不考虑supplier,就把以下去掉，对吗？

 

supplier <> "GSS"

 

是的。

版主， 这个加总还是有点问题， 窗口中的标签 customsinvoice中， 按了combine合并后，Netweight_total 加总不对了，合并前是 8412.37,合并后 15163.02 。能帮忙看一下吗，谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.rar

此主题相关图片如下：捕获.png

开发 liu

密码  123

修改红色代码

 

Dim t1 As Table = Tables("Shipment.customsinvoice")
If t1.Rows.Count = 0 Then Return

Dim str As String = ""
For i As Integer = t1.TopPosition To t1.BottomPosition
    str = str & "," & t1.Rows(i)("_Identify")
Next

str = str.Trim(",")
'Dim drs = t1.DataTable.Select("[_Identify] In (" & str & ") And supplier = 'GSS'", "ShippingNO,NameinChinese,Unit,HS")
Dim drs = t1.DataTable.Select("[_Identify] In (" & str & ") ", "ShippingNO,NameinChinese,Unit,HS")

Dim Total As Double
Dim Totalp As Double
'msgbox(drs.count)
If drs.Count > 1 Then 
    Dim cr = drs(drs.count-1)
    Total = cr("Netweight_Total")
    Totalp = cr("Totalprice")
    For i As Integer = drs.Count - 2 To 0 Step -1
        If cr("ShippingNO") = drs(i)("ShippingNO") AndAlso cr("NameinChinese") = drs(i)("NameinChinese") AndAlso cr("Unit") = drs(i)("unit") AndAlso cr("HS") = drs(i)("HS") AndAlso cr("Declaration") = drs(i)("Declaration") Then
           ' msgbox(123)
            cr("Qty") += val(drs(i)("Qty"))
            cr("TotalPrice") += val(drs(i)("TotalPrice"))
            cr("GrossWeight_total") += val(drs(i)("GrossWeight_Total"))
            '   cr("Netweight_Total") += val(drs(i)("Netweight_Total"))
            Total += val(drs(i)("Netweight_Total"))
            cr("Netweight_PC") = Total /cr("Qty")
            Totalp += val(drs(i)("Totalprice"))
            cr("PO_UnitPrice") = Totalp /cr("Qty")
            cr("Combine") &= drs(i)("GSSPartNo") &  ","
            drs(i).delete
        Else
            cr = drs(i)
           Total = cr("Netweight_Total")
           Totalp = cr("Totalprice")
        End If
    Next 
End If

版主，是什么原因，能说明一下，谢谢。

版主， 我克隆了一笔，第16笔， 不能合并，另外第三，四笔在满足条件下也不能合并，能帮忙再看一下吗？谢谢。
此主题相关图片如下：捕获.png

红色代码的列必须匹配

 

Dim drs = t1.DataTable.Select("[_Identify] In (" & str & ") ", "ShippingNO,NameinChinese,Unit,HS")

 

If cr("ShippingNO") = drs(i)("ShippingNO") AndAlso cr("NameinChinese") = drs(i)("NameinChinese") AndAlso cr("Unit") = drs(i)("unit") AndAlso cr("HS") = drs(i)("HS") AndAlso cr("Declaration") = drs(i)("Declaration") Then