要求：假如合同编号不为空，按合同编号从合同表里取单价；假如合同编号为空，批次号不为空，则按照批次号从合同表里取单价。前面的能够正常取数，后面的合同编号为空，批次号不为空的时候，取不到数。
Select Case e.DataCol.Name
Case "合同编号"
If dr("合同编号") IsNot Nothing Then
Dim pr As DataRow
pr = DataTables("合同").Find("[合同编号] = '" & e.NewValue & "'")
If pr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("单价") = pr("结算单价")
End If
ElseIf dr("批次号") IsNot Nothing Then
Dim mr As DataRow
mr = DataTables("合同").Find("[批次号] = '" & e.NewValue & "'")
If mr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("单价") = mr("结算单价")
End If
End If
End Select
加好友 
发短信
Post By：2022/8/15 8:36:00 [只看该作者]
