以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  行复制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46666)

--  作者:qianqian1530
--  发布时间:2014/2/26 18:52:00
--  行复制
想要的效果

窗口1 -里有一个 表A绑定
窗口2 -里面有一个表B绑定


当在 窗口1里 双击 某行,  某行的值-复制到 窗口2里的表里  并且关掉窗口1


这样的效果怎么整内?   



--  作者:y2287958
--  发布时间:2014/2/26 19:05:00
--  
http://www.foxtable.com/help/topics/2292.htm
道理一样

--  作者:有点甜
--  发布时间:2014/2/26 19:10:00
--  
 编写表的doubleclick事件,代码参考2楼


--  作者:qianqian1530
--  发布时间:2014/2/26 19:49:00
--  回复:(有点甜) 编写表的doubleclick事件,代码...
Dim rlist As List(Of Row) = Tables("快速查找商品_Table1").GetCheckedRows()
Tables("新增订单_Table1").Rows(0).Delete()
For i As Integer = 0 To rlist.Count - 1
    Dim r As Row = Tables("新增订单_Table1").AddNew()
    r("商品名") = rlist(i)("商品名")
Next



写成这样了  ,可以是可以,  但我想要的是  不要复选, 每次只能 复制一行,·· 帮我改改被...

--  作者:有点甜
--  发布时间:2014/2/26 19:52:00
--  
 这个意思?

Dim r As Row = Tables("新增订单_Table1").AddNew()
r("商品名") = e.DataRow("商品名")

--  作者:qianqian1530
--  发布时间:2014/2/26 19:58:00
--  回复:(有点甜) 这个意思?Dim r As Row = Tab...
 编译不通过啊 
--  作者:有点甜
--  发布时间:2014/2/26 20:00:00
--  
 哦,忘记了

Dim r As Row = Tables("新增订单_Table1").AddNew()
r("商品名") = e.Row("商品名")

--  作者:qianqian1530
--  发布时间:2014/2/26 20:15:00
--  
我爱你