主题：[求助]

版主

 

那如果客户不是AAA的其它客户进行合并，那改成如下，是成立的， 对不对 ？

 

If t.Rows(i)("客户") <> "AA" andalso cr("ShippingNO") = t.Rows(i)("ShippingNO") AndAlso cr("NameinChinese") = t.Rows(i)("NameinChinese") AndAlso cr("Unit") = t.Rows(i)("unit") AndAlso cr("HS") = t.Rows(i)("HS")

测试不就知道了。测试有什么问题？

版主，客户不是AAA的其它客户进行合并， 测了一下，以下不对？ 请帮忙一下，谢谢。

 

If t.Rows(i)("客户") <> "AA" andalso cr("ShippingNO") = t.Rows(i)("ShippingNO") AndAlso cr("NameinChinese") = t.Rows(i)("NameinChinese") AndAlso cr("Unit") = t.Rows(i)("unit") AndAlso cr("HS") = t.Rows(i)("HS")

t.Rows(i)("客户") <> "AAA" 

版主，改了，还是不可以合并，代码上有问题吗？谢谢。

上传具体实例说明

版主，想实现

 

当全选当前窗口记录后

 

supplier 等于GSS时，以ShippingNO，MaterialName，Unit，HS相同进行合并

 

supplier 不等于GSS时，以ShippingNO，NameinChinese，Unit，HS，Declaration，PO_UnitPrice相同进行合并，这个PO_UnitPrice 是总金额除以总数量得出，现只能两个一算，再行第二次合并，就单价不同需不能满足条件了。

 

以下代码，请查看，谢谢。

 

 

Dim t1 As Table = Tables("Shipment.customsinvoice")
Dim cr1 = t1.Rows(t1.BottomPosition )
Dim Total1 As Double = cr1("Netweight_Total")
Dim Totalp1 As Double = cr1("Totalprice")

For i1 As Integer = t1.BottomPosition-1 To t1.TopPosition Step -1
    If t1.Rows(i1)("supplier") = "GSS" AndAlso cr1("ShippingNO") = t1.Rows(i1)("ShippingNO") AndAlso cr1("MaterialName") = t1.Rows(i1)("MaterialName") AndAlso cr1("Unit") = t1.Rows(i1)("unit") AndAlso cr1("HS") = t1.Rows(i1)("HS")
        cr1("Qty") += val(t1.Rows(i1)("Qty"))

        cr1("TotalPrice") += val(t1.Rows(i1)("TotalPrice"))

        cr1("GrossWeight_total") += val(t1.Rows(i1)("GrossWeight_Total"))
    '   cr("Netweight_Total") += val(t.Rows(i)("Netweight_Total"))
        Total1 += val(t1.Rows(i1)("Netweight_Total"))
        cr1("Netweight_PC") = Total1 /cr1("Qty")
        Totalp1 += val(t1.Rows(i1)("Totalprice"))
        cr1("PO_UnitPrice") = Totalp1 /cr1("Qty")
        cr1("GSSPartNo") &= ","  & t1.Rows(i1)("GSSPartNo")

       
        t1.Rows(i1).delete

    Else
        cr1 = t1.Rows(i1)
    End If
Next

 

Dim t As Table = Tables("Shipment.customsinvoice")
Dim cr = t.Rows(t.BottomPosition )
Dim Total As Double = cr("Netweight_Total")
Dim Totalp As Double = cr("Totalprice")

For i As Integer = t.BottomPosition-1 To t.TopPosition Step -1
     If t.Rows(i)("supplier") <> "GSS" AndAlso cr("ShippingNO") = t.Rows(i)("ShippingNO") AndAlso cr("NameinChinese") = t.Rows(i)("NameinChinese") AndAlso cr("Unit") = t.Rows(i)("unit") AndAlso cr("HS") = t.Rows(i)("HS") AndAlso cr("Declaration") = t.Rows(i)("Declaration") AndAlso cr("PO_UnitPrice") = t.Rows(i)("PO_UnitPrice")
        cr("Qty") += val(t.Rows(i)("Qty"))

        cr("TotalPrice") += val(t.Rows(i)("TotalPrice"))

        cr("GrossWeight_total") += val(t.Rows(i)("GrossWeight_Total"))
    '   cr("Netweight_Total") += val(t.Rows(i)("Netweight_Total"))
        Total += val(t.Rows(i)("Netweight_Total"))
        cr("Netweight_PC") = Total /cr("Qty")
        Totalp += val(t.Rows(i)("Totalprice"))
        cr("PO_UnitPrice") = Totalp /cr("Qty")
        cr("GSSPartNo") &= ","  & t.Rows(i)("GSSPartNo")

       
        t.Rows(i).delete

    Else
        cr = t.Rows(i)
    End If
Next

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

点击浏览该文件:test3.rar

谢谢，版主，有点问题，如图。
此主题相关图片如下：捕获.png