主题：[求助]

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

 

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

版主请问一下，如果执行这个代码前，如果选中的记录中，列名 Exchangerate 有空白的话，先提醒前行汇率转换？ 麻烦了。

版主，0空白后，它没有继续下去

不好意思， 正确的。谢谢！

版主，这代码有点不对，只要我一修改以前的记录克隆，拆分，原来的用户名还会被取代，可不可以再优化 ？

 

版主，

 

这个表中最后一列是usename,增加一笔就自动产生用户名，根据当前使用者。date列是日期默认的。

 

窗口一打开，这个光标就自动指到表中最后一笔空白的位置，不能有第二条空白记录，只有当使用者新增shippingno时，这个usename就自动增加，另一个使用者时光标停在最后空白记录。