参考代码
Select Case e.DataCol.name
Case "体积m3","重量t"
If e.DataRow.Isnull("体积m3") = True AndAlso e.DataRow("重量t") = True Then
e.DataRow("计费吨") = Nothing '2个要比较的列都为空,则接受列为空
Else
If e.DataRow("体积m3") >= e.DataRow("重量t") Then
e.DataRow("计费吨") = e.DataRow("体积m3")
Else
e.DataRow("计费吨") = e.DataRow("重量t")
End If
End If
Case "计费吨", "国内费用_港杂费_卸车费"
Dim dr As DataRow= DataTables("调遣费参数表").Find("参数名 = '国内费用_港杂费_卸车费'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("国内费用_港杂费_卸车费") = e.DataRow ("计费吨") * dr("值")
End If
End Select