- 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=30506)
-- 发布时间：2013/3/29 11:34:00
-- 表间的复制问题
我有个窗口1，里面的控件绑定了表A。窗口1里面还有个按钮，我想要按下按钮的时候，表B会新增一行，表B新增行里面跟表A相同的的列直接复制表A窗口1当前显示的数据，可以实现吗？怎么实现？
-- 发布时间：2013/3/29 11:53:00
--
这个是例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2013/3/29 13:57:00
--
人呢- -
-- 发布时间：2013/3/29 14:26:00
--
那个项目我弄了窗口，不过表里面的列没有换名字。
-- 发布时间：2013/3/29 14:53:00
--
如果两个表结构相同：
Dim r1 As Row = Tables("表A").Row
Dim r2 As Row = Tables("表B").AddNew()
For Each dc As DataCol In DataTables("表B").DataCols
r2(dc.Name) = r1(dc.Name)
Next
如果结构不同：
Dim r1 As Row = Tables("表A").Row
Dim r2 As Row = Tables("表B").AddNew()
Dim nma() As String = {"A1","A2","A3","A4"} \'A表数据来源列
Dim nmb() As String = {"B1","B2","B3","B4"} \'B表数据接收列
For i As Integer = 0 To nma.Length - 1
r2(nmb(i)) = r1(nma(i))
Next
-- 发布时间：2013/3/30 14:32:00
--
此主题相关图片如下：图片1.png
怎么会这样？
-- 发布时间：2013/3/30 15:15:00
--
笔误。
Dim r1 As Row = Tables("表A").Row
改为：
Dim r1 As Row = Tables("表A").Current