以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17417)

--  作者:呵和呵
--  发布时间:2012/3/12 22:33:00
--  求助
回收行里的行,可不可以回收到另一个表里。我的项目里有两个表,一是订单,一是成交。想把订单中的某行在成交后移动到成交里
--  作者:狐狸爸爸
--  发布时间:2012/3/12 23:39:00
--  
最后是给订单加个状态列,表示订单的不同状态。
用两个按钮,分别用于筛选显示出成交和未成交的订单。
 
如果要将表A的某行数据复制到表B,也很简单:
 
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
Dim dr1 As Row = Tables("表A").Current
Dim dr2 As DataRow = DataTables("表B").AddNew()
For i As Integer = 0 To Cols1.Length -1
     dr2(Cols2(i)) = dr1(Cols1(i))
Next