- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数据同步更新的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77074)
-- 发布时间：2015/11/10 16:38:00
-- 数据同步更新的问题
我这面想要实现数据同步更新的问题 先是表A 输入卡号 然后表B先输入卡号再输入车牌号 表A不用输入车牌号直接更新，表B如果更换卡号时 表A所对应的车牌号也发生变化 ，表B如果删除车牌号表A车牌号也删除。谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/11/10 16:42:00
--
呃，直接抄
http://www.foxtable.com/help/topics/2490.htm
-- 发布时间：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
[此贴子已经被作者于2015/11/10 16:48:11编辑过]
-- 发布时间：2015/11/10 17:02:00
--
看看
[此贴子已经被作者于2015/11/10 17:02:53编辑过]
-- 发布时间：2015/11/10 17:04:00
--
表B， AfterEdit
Dim DtRow As DataRow =DataTables("表A").Find("卡号=\'" & e.Table.Current("卡号") &"\'")
If DtRow IsNot Nothing Then
DtRow("车牌号")=e.Table.Current("车牌号")
DataTables("表A").Save()
DataTables("表A").Load()
Else
End If
-- 发布时间：2015/11/11 12:52:00
--
谢谢 大家支持 我测试一下 3L的方法 会直接在表A增加新的字段 我想让在原有字段后更新
5L的方法 虽然在原有字段后更新 表B发生删除后 表A的数据依然保留
麻烦大家再帮我想想办法 更改输入模式也行
-- 发布时间：2015/11/11 14:10:00
--
以下是引用zhongcheng在2015/11/11 12:52:00的发言：
谢谢 大家支持 我测试一下 3L的方法 会直接在表A增加新的字段 我想让在原有字段后更新
谢谢 大家支持 我测试一下 3L的方法 会直接在表A增加新的字段 我想让在原有字段后更新
5L的方法 虽然在原有字段后更新 表B发生删除后 表A的数据依然保留
麻烦大家再帮我想想办法 更改输入模式也行
请结合2楼、3楼，好好看看
-- 发布时间：2015/11/11 14:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1 (1).table |