以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]处理复选框问题，怎么一键把订单详情加入到仓库呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21997)
--  作者：坤哥
--  发布时间：2012/7/30 14:04:00
--  [原创]处理复选框问题，怎么一键把订单详情加入到仓库呢？

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

 

 

 

如果复制，只能复制部分列，把库存表的表事件，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

 


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

 

 

入库是多常见的操作啊

 

 

应该很简单啊
--  作者：坤哥
--  发布时间：2012/7/30 14:28:00
--  
突然想起狐爸写的购物车代码，可以解决
--  作者：坤哥
--  发布时间：2012/7/30 14:39:00
--  

 

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

 

Dim r2 As Row = Tables("库存列表").AddNew

r2("列名1") = r1("列名1")

r2("列名2") = r1("列名2")

r2("列名3") = r1("列名4")

r2("其他列1") = 值1

r2("其他列2") = 值2

 

 

直接定义，轻松解决