Dim cr As Row = Tables("在途汇总02").current
If cr("选择") = True Then
Dim dr As DataRow = DataTables("入库明细表").AddNew
For Each dc As DataCol In DataTables("在途汇总02").DataCols
dr(dc.Name) = cr(dc.Name)
Next
cr.delete
End If
加好友 
发短信
Post By：2019/9/20 16:27:00 [只看该作者]
