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

问题简述：设计了个校招系统，内含四个表 “录用人员” 、“备选人员”、“淘汰人员”、“测评记录”，这四个表中都有共同列“姓名”、“学校”、“身份证号”；其中，“测评记录”为笔试成绩记录表，三个人员表分别与测评记录表以身份证号列设置了关联，初步设定的是，在测评记录中新增行，只要输入身份证号码，则自动从三个表中匹配数据，“测评记录”表中的“姓名”、“学校”自动输入。我在“测评记录”表中的datacolchanged时间中写了如下代码，但仅适用于“录用人员”表中提取数据。求大神给思路，或帮忙优化下代码。

If e.DataCol.Name = "身份证号" Then

If e.NewValue Is Nothing Then

e.DataRow("学校") = Nothing

e.DataRow("姓名") = Nothing

Else

Dim dr As DataRow

Dim dr1 As DataRow

Dim dr2 As DataRow

dr = e.DataRow.GetParentRow("录用人员")

If dr IsNot Nothing

e.DataRow("学校") = dr("学校")

e.DataRow("姓名") = dr("姓名")

Else

dr1 = e.DataRow.GetParentRow("备选人员")

If dr1 IsNot Nothing

e.DataRow("学校") = dr1("学校")

e.DataRow("姓名") = dr1("姓名")

Else

dr2 = e.DataRow.GetParentRow("淘汰人员")

If dr2 IsNot Nothing

e.DataRow("学校") = dr2("学校")

e.DataRow("姓名") = dr2("姓名")

End If

[此贴子已经被作者于2016/9/27 16:00:56编辑过]

主题：从多个表中提取数据的问题