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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据同步更新的问题

共有3580人关注过本帖树形打印复制链接主题：数据同步更新的问题

zhongcheng

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

加好友

发短信

等级：婴狐帖子：2 积分：81 威望：0 精华：0 注册：2015/11/10 16:22:00

数据同步更新的问题 发帖心情

Post By：2015/11/10 16:38:00 [只看该作者]

我这面想要实现数据同步更新的问题先是表A 输入卡号然后表B先输入卡号再输入车牌号表A不用输入车牌号直接更新，表B如果更换卡号时表A所对应的车牌号也发生变化，表B如果删除车牌号表A车牌号也删除。谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/10 16:42:00 [只看该作者]

呃，直接抄

http://www.foxtable.com/help/topics/2490.htm

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/10 16:47:00 [只看该作者]

DataColChanged事件

Select Case e.DataCol.name
    Case "卡号"
        Dim dr As DataRow
        If e.OldValue = Nothing Then
            dr = DataTables("表A").Find("卡号 = '" & e.NewValue & "'")
        Else
            dr = DataTables("表A").Find("卡号 = '" & e.OldValue & "'")
        End If
        If dr Is Nothing Then
            dr = DataTables("表A").AddNew()
        End If
        dr("卡号") = e.DataRow("卡号")
        dr("车牌号") = e.DataRow("车牌号")
    Case "车牌号"
        Dim dr As DataRow = DataTables("表A").Find("卡号 = '" & e.DataRow("卡号") & "'")
        If dr IsNot Nothing Then
            dr("车牌号") = e.DataRow("车牌号")
        End If
End Select