主题：跨表引用计算

参考代码

Select Case e.DataCol.Name
    Case "高度", "系列"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("高度") OrElse dr.IsNull("系列") Then
            dr("单价") = Nothing
        Else
            Dim filter As String
            filter = "系列 = '" & dr("系列") & "'"
            pr = DataTables("参数").Find(filter)
            If pr IsNot Nothing Then
                dr("边封") = dr("高度") - pr("边封管位")
            End If
        End If
End Select