- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 表A到表B选中其中一行复制，实现复制选中行(选中表A的其中一行，选中的一行复制到表B)， (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50442)
-- 发布时间：2014/5/6 21:00:00
-- 表A到表B选中其中一行复制，实现复制选中行(选中表A的其中一行，选中的一行复制到表B)，
表A到表B选中其中一行复制，实现复制选中行(选中表A的其中一行，选中的一行复制到表B)，
试过选中逻辑列可以实现复制选中行，但是下次还是要复制原来复制过的这一行时，
要把逻辑列取掉，再勾选才能复制，不是很完美，，，请帮助下，，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
[此贴子已经被作者于2014-5-6 21:10:29编辑过]
-- 发布时间：2014/5/6 21:04:00
--
只有IE才可以上传例子，，，
-- 发布时间：2014/5/6 21:18:00
--
Dim r As Row = Tables("表A").Current
Dim r1 As Row = Tables("表B").AddNew
For Each c As Col In Tables("表A").Cols
r1(c.Name) = r(c.Name)
Next
-- 发布时间：2014/5/6 21:19:00
--
如下代码
Dim t As Table = Tables("表A")
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.Rows(i)
Dim nr As Row = Tables("表B").addnew
nr("第一列") = r("第一列")
Next
-- 发布时间：2014/5/6 21:23:00
--
以下是引用有点甜在2014-5-6 21:19:00的发言：
感谢，有点甜。
如下代码
Dim t As Table = Tables("表A")
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.Rows(i)
Dim nr As Row = Tables("表B").addnew
nr("第一列") = r("第一列")
Next