Dim t As Table = e.Form.Controls("表A").Table
Dim nma() As String = {"产品编号","单价"}
Dim nmb() As String = {"产品编号","单价"}
Dim nmc() As String = {"品名","数量"}
For k As Integer = t.TopRow To t.BottomRow
Dim r As Row = t.Rows(k)
If r("选中") = True Then
Dim dr As Row = Tables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
dim drr as datarow = e.Form.Controls("表C").Table.datatable.find("产品编号='" & r("产品编号") & "' and 选中=true")
if drr isnot nothing then
For i As Integer = 0 To nmc.Length - 1
dr(nmc(i)) = drr(nmc(i))
Next
end if
End If
Next
加好友 
发短信
Post By：2020/10/26 15:21:00 [只看该作者]
