三个表的数据关联 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2779人关注过本帖树形打印复制链接主题：三个表的数据关联

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 [只看该作者]

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

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/22 15:23:00 [只看该作者]

不明白你什么意思，填充数据参考

http://www.foxtable.com/webhelp/scr/0680.htm

http://www.foxtable.com/webhelp/scr/1533.htm

bootes29

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00

Post By：2017/6/22 15:39:00 [只看该作者]

比如下图，执行完了

此主题相关图片如下：未标题-43.jpg

bootes29

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00

Post By：2017/6/22 15:41:00 [只看该作者]

上面的图中地接错了应该是某a1
图片点击可在新窗口打开查看

此主题相关图片如下：未标题-43.jpg

有点色

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/22 15:45: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("我们编号")
    End If
Next

bootes29

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

fdrd("编号") = fdrc("我们编号")

fdrd("地接名称") = fdrc("别人编号")

End If

--------------------------

可是，他把所有的都转了，我只想转打钩的，拜请老师指点
图片点击可在新窗口打开查看

此主题相关图片如下：未标题-45.jpg

有点色

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/22 16:14:00 [只看该作者]

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

Dim trv As WinForm.TreeView = Forms("关联").Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked AndAlso nd.Text <> "所有" AndAlso nd.Level = 0 Then
        Dim drb As DataRow = dtb.Find("编号 = '" & nd.text & "'")
        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
    End If
Next

下一主题 >> << 上一主题

总数 18 1 2 下一页

主题：三个表的数据关联