- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于实时更新的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159715)
-- 发布时间：2021/1/6 1:35:00
-- 关于实时更新的问题
表A 和 表B ， 如何能做出这样的效果，表A里的“状态” 永远从表B里 ”实时状态“里最末的一行（也就是最近的时间）中取值，因为表A的”状态“代表的是最新的状态，表B里体现的状态都是过程，如下图：
此主题相关图片如下：foxtable问题2.png
小女子无比感谢了！
-- 发布时间：2021/1/6 8:44:00
--
表B,DataColChanged事件
Select Case e.DataCol.Name
Case "姓名","实时状态"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
Dim filter As String
filter = "姓名 = \'" & dr("姓名") & "\'"
pr = DataTables("表A").Find(filter)
If pr IsNot Nothing Then
Dim dr2 As DataRow = e.DataTable.Find(filter,"回访日期 desc")
If dr2 IsNot Nothing Then
dr("状态") = pr("实时状态")
End If
End If
End Select