- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 资料复制 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51399)
-- 发布时间：2014/5/26 11:56:00
-- 资料复制
表a和表b关联
我想实现的功能：在关联表b中选同a的资料时，关联表b中自动
复制表a当前编号的资料到表b中，麻烦老师了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目18.table |
复制表a当前编号的资料到表b中，麻烦老师了
-- 发布时间：2014/5/26 12:00:00
--
参考
http://www.foxtable.com/help/topics/2292.htm
-- 发布时间：2014/5/26 12:05:00
--
表B的datacolchanged事件，写入代码
If e.DataCol.Name = "同表a资料" AndAlso e.DataRow("同表a资料") = True Then
Dim fdr As DataRow = e.DataRow.GetParentRow("表A")
If fdr IsNot Nothing
Dim nma() As String = {"姓名","性别","身份证","手机","单位名称"} \'A表数据来源列
Dim nmb() As String = {"姓名","性别","身份证","手机","单位名称"} \'B表数据接收列
For i As Integer = 0 To nma.Length - 1
e.DataRow(nmb(i)) = fdr(nma(i))
Next
End If
End If
-- 发布时间：2014/5/26 12:55:00
--
谢谢