本人设计了一个父表为设备档案，一个子表为设备量值溯源，通过昨天的请教，父表中要使用子表中左后的校准时间、有效期和校准单位，在子表的
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
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
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
End If
请教一下，该如何进行简化
加好友 
发短信
Post By：2015/8/14 21:21:00 [显示全部帖子]
