|
Dim Cols1() As String = {"材料编号","材料名","规格"}
Dim Cols2() As String = {"材料编号","材料名称","规格"}
Dim t As Table = e.Form.Controls("Table1").Table
For Each r As Row In t.GetCheckedRows
For Each c As String In Cols1
If r.IsNull(c) Then
msgbox(c & " 不能为空")
Return
End If
Next
Next
For Each r As Row In t.GetCheckedRows
Dim dr2 As Row = Tables("材料仓.明细").AddNew() '数据接收列
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = r(Cols1(i))
Next
Next
|
加好友 
发短信
Post By：2016/7/27 22:58:00 [显示全部帖子]
