- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]打开表B自动显示表A中的相关数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140933)
-- 发布时间：2019/9/17 17:28:00
-- [求助]打开表B自动显示表A中的相关数据
老师你好！
上次的问题可能没说清楚。在《个人信息表》中录入全部信息。那么在《入职信息》表中能自动显示如：姓名、身份证号码、等着部分信息。请问代码该怎么写。谢谢！ 下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:测试1.zip
-- 发布时间：2019/9/17 20:14:00
--
个人信息，datacolchanged事件
Select Case e.DataCol.Name
Case "身份证号码"
If e.OldValue > "" AndAlso e.OldValue <> e.NewValue Then
Dim dr As DataRow = DataTables("入职信息").Find("身份证号码=\'" & e.OldValue & "\'")
If dr IsNot Nothing Then dr("身份证号码") = e.NewValue
Else If e.NewValue > "" Then
Dim dr As DataRow = DataTables("入职信息").Find("身份证号码=\'" & e.NewValue & "\'")
If dr Is Nothing Then
dr = DataTables("入职信息").AddNew
dr("身份证号码") = e.NewValue
End If
End If
Case "姓名","年龄"
Dim dr As DataRow = DataTables("入职信息").Find("身份证号码=\'" & e.DataRow("身份证号码") & "\'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
-- 发布时间：2019/9/18 13:27:00
-- 谢谢，老师！
谢谢，老师！