以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 同表复制指定并同时打开对应的窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83710)
--  作者：benwong2013
--  发布时间：2016/4/15 8:53:00
--  [求助] 同表复制指定并同时打开对应的窗口
Dim t As Table = Tables("表A")
Dim r,r1 As Row
r = t.Current
r1 = t.AddNew
For Each dc As DataCol In t.DataTable.DataCols
    r1(dc.name) = r(dc.name)
    Forms("窗口1").Open()
Next

这个代码可以指定复制行r所有列的记录到行r1，但打开的窗口并不是r1的记录，请问应如何修改？

另外在帮助中哪里有关于table复选框相关代码应用的内容，因为我写了代码都是不起作用不能使用已经打勾复选框对应的行；
--  作者：Hyphen
--  发布时间：2016/4/15 8:56:00
--  
Dim t As Table = Tables("表A")
Dim r,r1 As Row
r = t.Current
r1 = t.AddNew
For Each dc As DataCol In t.DataTable.DataCols
    r1(dc.name) = r(dc.name)
Next
t.Position = t.Rows.Count - 1
Forms("窗口1").Open()
--  作者：benwong2013
--  发布时间：2016/4/15 10:22:00
--  
如果我是复制个别列的话，应如何处理
--  作者：大红袍
--  发布时间：2016/4/15 10:24:00
--  
Dim t As Table = Tables("表A")
Dim r,r1 As Row
r = t.Current
r1 = t.AddNew
Dim cs() As String = {"A", "B"}
For Each c as string in cs
    r1(c) = r(c)
Next
t.Position = t.Rows.Count - 1
Forms("窗口1").Open()