Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]按钮跨表引用问题？


  共有3745人关注过本帖树形打印复制链接

主题：[求助]按钮跨表引用问题？
帅哥哟，离线，有人找我吗？
jk362223
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		[求助]按钮跨表引用问题？  发帖心情 Post By：2014/7/20 21:37:00 [显示全部帖子]

若有二表“表A”,"表B"，一个按钮，现从 表A全部引用到 表B，要在 按钮上设置代码完成， 代码是如何写？请帮我

 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/20 22:06:00 [显示全部帖子]

Dim nmc() As String = {"身份证号","姓名","性别","年龄","标识","县"} 'A表数据来源列
Dim nmd() As String = {"身份证号","姓名","性别","年龄","标识","县"} 'B表数据接收列
Dim dra As Row = Tables("名单").Current
Dim drc As Row = Tables("疾病证明书").AddNew
For i As Integer = 0 To nmc.Length - 1
    drc(nmd(i)) = dra(nmc(i))
Next 
这是二个表多列引用，现是要全部引用，怎样写？
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/20 22:20:00 [显示全部帖子]

Dim nmc() As String = {"身份证号","姓名","性别","年龄","标识","县"} 'A表数据来源列
Dim nmd() As String = {"身份证号","姓名","性别","年龄","标识","县"} 'B表数据接收列
For Each dra As DataRow In DataTables("名单").DataRows
    Dim drc As Row = Tables("报销名单").AddNew
    For i As Integer = 0 To nmc.Length - 1
        drc(nmd(i)) = dra(nmc(i))
    Next
Next

除了这些列，还有好多列，有30多列，写起来麻烦，这二个表，基本相同，要怎样通过按钮边完成？
 回到顶部
帅哥哟，离线，有人找我吗？
jk362223
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00 		  发帖心情 Post By：2014/7/20 22:23:00 [显示全部帖子]

是啊，就是这样作用，怎写？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 5 次数据查询