我在订单表的窗口里加入了订单详情的表控件，显示复选框，想做一个入库按钮，把选中的行，加入到库存表中，该行的所有列也加入，因为控件里显示了部分列。
如果复制，只能复制部分列，把库存表的表事件，DataColChanged列改变后执行，自动去订单详情查找，找到产品编号后，内容自动拷贝过来。
For Each r As Row In Tables("订单库.订单详情").GetCheckedRows
r.Copy()
Dim d As Row=DataTables("库存列表").AddNew()
d.Paste
Next
库存表的表事件，DataColChanged
If e.DataCol.Name ="产品编号" Then '发生变化的是产品名称吗?
'在产品表找出该产品
Dim dr As DataRow = DataTables("订单详情").Find("编号 = " & "'" & e.DataRow("产品编号") & "'" )
If dr IsNot Nothing'如果找到,则设置各列内容
e.DataRow("品名")= dr("品名")
e.DataRow("型号")= dr("型号")
e.DataRow("规格")= dr("规格")
End If
EndIf
复制，粘贴，代码不会写，，，还能有没有更简单的思路？
入库是多常见的操作啊
应该很简单啊
加好友 
发短信
Post By：2012/7/30 14:04:00 [只看该作者]
