我做了个用余额来支付订单的页面，但如果客户 没有存款 余额表 里没有这个客户时，点击余额支付，就报错
此主题相关图片如下：qq截图20180927113232.png
我知道得做一个判断，但是我不知怎么做，请教老师
For Each r As Row In Tables("订单表").GetCheckedRows
Dim r3 As DataRow = DataTables("UserYE").Find("客户ID = '" & r("客户ID") & "'")
If r("付款状态") = "已付款" Then
MessageBox.Show("订单编号: " & r("订单编号") & " " & r("付款状态") & " , 不能重复核销!","提醒" )
Else
If r3("客户余额") < r("金额") Then
MessageBox.Show("用户余额不足! 不能支付此订单!","提醒" )
Else
r("付款状态") = "已付款"
r("订单状态") = "已完成"
r("结算方式") = "余额支付"
Dim r2 As DataRow = DataTables("资金明细表").AddNew
r2("客户ID") = r("客户ID")
r2("客户名称") = r("客户名称")
r2("订单编号") = r("订单编号")
r2("订单金额") = r("金额")
r2("订单日期") = r("下单日期")
r2("付款方式") = r("结算方式")
r2.Save()
MessageBox.Show("订单编号:" & r("订单编号") & " , 已核销!","提醒" )
End If
End If
DataTables("订单表").Save()
Next
加好友 
发短信
Post By：2018/9/27 11:33:00 [显示全部帖子]
