[原创]处理复选框问题，怎么一键把订单详情加入到仓库呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在订单表的窗口里加入了订单详情的表控件，显示复选框，想做一个入库按钮，把选中的行，加入到库存表中，该行的所有列也加入，因为控件里显示了部分列。

如果复制，只能复制部分列，把库存表的表事件，DataColChanged列改变后执行，自动去订单详情查找，找到产品编号后，内容自动拷贝过来。

For Each r As Row In Tables("订单库.订单详情").GetCheckedRows

r.Copy()

Dim d As Row=DataTables("库存列表").AddNew()

d.Paste

库存表的表事件，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

复制，粘贴，代码不会写，，，还能有没有更简单的思路？

入库是多常见的操作啊

应该很简单啊

主题：[原创]处理复选框问题，怎么一键把订单详情加入到仓库呢？