Foxtable(狐表) → 用户栏目 → 专家坐堂 → 三个表的数据关联


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

主题：三个表的数据关联
帅哥哟，离线，有人找我吗？
bootes29
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		三个表的数据关联  发帖心情 Post By：2017/6/22 14:28:00 [显示全部帖子]

各位老师，又来给大家添麻烦了，
现在有三个数据库 ，两两关联吧，
要实现数据按要求传输
拜托了~~~
图片点击可在新窗口打开查看此主题相关图片如下：未标题-4.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
bootes29
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		  发帖心情 Post By：2017/6/22 14:28:00 [显示全部帖子]

这是样本
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目622.table
 回到顶部
帅哥哟，离线，有人找我吗？
bootes29
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		  发帖心情 Post By：2017/6/22 15:11:00 [显示全部帖子]

大师今天太忙了，辛苦辛苦

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


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		  发帖心情 Post By：2017/6/22 15:34:00 [显示全部帖子]

@有点色 老师好，
您推荐的参考，我已仔细研读。
这都是两个表之前的数据流转。
我这个是这样的意思。
表b 和表d 数据结构相同，他们之间的数据关系是靠表c 来确立。
平时，我建立一个对照，比如表b编号中的 某a1 对应 我要用的 编号 是a1，某c 对应 是c
如果 某a1 更新了 数据，某c没有更新，我想让表d中的 编号是 是a1 的那一行数据更新。
-----------
是我解说的拗口
 回到顶部
帅哥哟，离线，有人找我吗？
bootes29
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		  发帖心情 Post By：2017/6/22 15:39:00 [显示全部帖子]

比如下图，执行完了 
图片点击可在新窗口打开查看此主题相关图片如下：未标题-43.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
bootes29
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		  发帖心情 Post By：2017/6/22 15:41:00 [显示全部帖子]

上面的图中 地接 错了 应该是 某a1
图片点击可在新窗口打开查看此主题相关图片如下：未标题-43.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
bootes29
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		  发帖心情 Post By：2017/6/22 16:04:00 [显示全部帖子]

万分感谢 有的色 老师，学习了！

Dim dtb As DataTable = DataTables("表B")
Dim dtc As DataTable = DataTables("表C")
Dim dtd As DataTable = DataTables("表d")

For Each drb As DataRow In dtb.DataRows
    Dim fdrc As DataRow = dtc.Find("别人编号 = '" & drb("编号") & "'")
    If fdrc IsNot Nothing Then
        Dim fdrd As DataRow = dtd.Find("编号 = '" & fdrc("我们编号") & "'")
        If fdrd Is Nothing Then
            fdrd = dtd.AddNew
        End If
        For Each dcb As DataCol In dtb.DataCols
            fdrd(dcb.name) = drb(dcb.name)
        Next
        fdrd("编号") = fdrc("我们编号")
        fdrd("地接名称") = fdrc("别人编号")
    End If
Next
--------------------------
可是，他把所有的都转了，我只想转 打钩的，拜请老师指点
图片点击可在新窗口打开查看此主题相关图片如下：未标题-45.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
bootes29
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		  发帖心情 Post By：2017/6/22 16:27:00 [显示全部帖子]

NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.3.18.1
错误所在事件：窗口,窗口1,Button13,Click
详细错误信息：
未将对象引用设置到对象的实例。
----------------------------------
 回到顶部
帅哥哟，离线，有人找我吗？
bootes29
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		  发帖心情 Post By：2017/6/22 16:49:00 [显示全部帖子]

感谢 有点色 老师不厌其烦的指导，可是，仍然 报错“未将对象。。。”

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


加好友 发短信
等级：童狐 帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00 		  发帖心情 Post By：2017/6/22 17:06:00 [显示全部帖子]

是我的电脑有问题需要重启吗？
只要调用目录树 就报错？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目622.table
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 7 次数据查询