以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73253)
--  作者：168448704
--  发布时间：2015/8/14 21:21:00
--  [求助]
本人设计了一个父表为设备档案，一个子表为设备量值溯源，通过昨天的请教，父表中要使用子表中左后的校准时间、有效期和校准单位，在子表的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
请教一下，该如何进行简化
--  作者：有点蓝
--  发布时间：2015/8/14 21:35:00
--  
就这样吧
顶多吧
"设备编号=\'" & e.DataRow("设备编号") & "\'"
用一个字符变量代替
Dim filter as String ="设备编号=\'" & e.DataRow("设备编号") & "\'"

 Dim pr As DataRow = e.DataRow.GetParentRow("设备档案")
 在所有if之前定义一次行了
--  作者：168448704
--  发布时间：2015/8/14 21:42:00
--  
谢谢！