主题：[求助]

谢谢，版主。 如果可以，请版主指导一下，以下红色代码有点看不懂，学习了。谢谢。

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