[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

本人设计了一个父表为设备档案，一个子表为设备量值溯源，通过昨天的请教，父表中要使用子表中左后的校准时间、有效期和校准单位，在子表的DataColChanged事件中编了代码如下：

If e.DataCol.name ="检校日期" Then

Dim pr As DataRow = e.DataRow.GetParentRow("设备档案")

If pr IsNot Nothing Then

pr("检校日期") = e.DataTable.Compute("max(检校日期)","设备编号='" & e.DataRow("设备编号") & "'")

End If

If e.DataCol.name ="有效期至" Then

Dim pr As DataRow = e.DataRow.GetParentRow("设备档案")

If pr IsNot Nothing Then

pr("有效期至") = e.DataTable.Compute("max(有效期至)","设备编号='" & e.DataRow("设备编号") & "'")

End If

If e.DataCol.name ="检校单位" Then

Dim pr As DataRow = e.DataRow.GetParentRow("设备档案")

If pr IsNot Nothing Then

pr("检校单位") = e.DataTable.Compute("max(检校单位)","设备编号='" & e.DataRow("设备编号") & "'")

End If

请教一下，该如何进行简化

主题：[求助]