参考代码
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