- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]列数据的及时更新 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140985)
-- 发布时间：2019/9/18 19:43:00
-- [求助]列数据的及时更新
求：表A中的详细通讯地址与联系电话的及时更新；数据来源是根据关联表B的详细通讯地址与联系电话内容，比较条件是最后的表B的变更时间列。
关联表B中每新增一行，只要保存成功，表A的详细通讯地址与联系电话就会更新成最新的内容。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
这是以前的代码：
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "身份证号码"
If dr.IsNull("身份证号码") Then
dr("详细通讯地址") = Nothing
dr("联系电话") = Nothing
Else
Dim dr2 As DataRow = DataTables("表B").Find("身份证号码 = \'" & e.NewValue & "\'", "变更时间 desc")
If dr2 IsNot Nothing Then
dr("详细通讯地址") = dr2("详细通讯地址")
dr("联系电话") = dr2("联系电话")
End If
End If
End Select
[此贴子已经被作者于2019/9/18 19:50:08编辑过]
-- 发布时间：2019/9/18 20:39:00
--
或者说如果将上面的代码放入项目事件：AfterSaveProject事件中？？？？
我只要保存项目，表A的详细地址与联系电话就会自动更新……
-- 发布时间：2019/9/19 9:03:00
--
参考：http://www.foxtable.com/webhelp/topics/1453.htm