| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]两张表数据复制问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23759) |
| -- 作者：云淡风轻 -- 发布时间：2012/9/19 8:31:00 -- [求助]两张表数据复制问题 有两张外部数据表A、B，结构完全相同。
菜单上想做一个按钮，按一下后，将表A中的筛选出来的数据，复制到表B中，相当于将表A的导出数据和表B的合并数据功能合在一起，代码怎么写？ |
| -- 作者：lin_hailun -- 发布时间：2012/9/19 9:56:00 -- For Each r As Row In Tables("表A").Rows If DataTables("表B").Find("主列 = \'" & r("主列") & "\'") Is Nothing Then Dim dr As DataRow = DataTables("表B").AddNew() For Each c As Col In Tables("表A").Cols dr(c.Name) = r(c.Name) Next End If Next |
| -- 作者：狐狸爸爸 -- 发布时间：2012/9/19 18:15:00 -- http://www.foxtable.com/help/topics/0680.htm http://www.foxtable.com/help/topics/1533.htm
|