版主，请问将以下表属性中的代码转成窗口中的按钮代码需改哪些 ？ 麻烦。

If e.DataCol.Name = "Import" AndAlso e.DataRow("Import") = True Then
    Dim Result As DialogResult
    If Tables("shipment").current("shippingNo") = Nothing Then
        Result = Messagebox.Show("新增 !!!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Tables("shipment").addnew
        End If
    Else
       
       
          If e.DataCol.Name = "Import" AndAlso e.DataRow("Import") = True Then
            Dim nma() As String = {"PO","Customer","Customer_POno","PO_Pos","GSSPartNo","Customer_PartNo","Qty_PerBox","delivery_address","ETD"} \'
            Dim nmb() As String =

{"PO","Endcustomer","CustomerPO","Pos","GSSPart","PartNo","OpenQty","DeliveryAddress","ETD"}
           
            Dim dr As Row = Tables("Shipment.Packinglist").AddNew
           
            For i As Integer = 0 To nma.Length - 1
                dr(nma(i)) = e.DataRow(nmb(i))
            Next
        End If
       
   End If
End If

版主 ，

Dim r As Row = Tables("表A").current

这个只能选择第一个记录，改成

Dim r As Row in Tables("表A").rows  哪儿错了。我是要选返全部选中的记录后执行代码，谢谢。