不知道为啥代码的like没起作用(供应商包含N的)，代码如下，请帮忙看看，谢谢
If e.DataCol.Name = "采购订单号" Then
If e.NewValue Is Nothing Then
If e.DataRow("订单状态") = "已取消" Then
e.DataRow("付款金额") = "0"
Else
If e.DataRow("订单状态") = "已确认,待支付" Then
e.DataRow("付款金额") = "0"
Else
If e.DataRow("供应商") Like "N" Then
e.DataRow("付款金额") = e.DataRow("订单金额供")
Else
e.DataRow("付款金额") = Nothing
End If
End If
End If
Else
Dim zy As DataRow
zy = DataTables("供应商").Find("[订单号] = '" & e.NewValue & "'")
If zy IsNot Nothing Then
e.DataRow("付款金额") = zy("订单实付金额")
Else
If e.DataRow("订单状态") = "已取消" Then
e.DataRow("付款金额") = "0"
Else
If e.DataRow("采购订单号") = e.DataRow("订单号") Then
e.DataRow("付款金额") = e.DataRow("订单金额供")
Else
e.DataRow("付款金额") = Nothing
End If
End If
End If
End If
End If
[此贴子已经被作者于2021/6/21 16:29:35编辑过]
加好友 
发短信
Post By：2021/6/21 16:28:00 [只看该作者]
