- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表A 没有相关数据时，如何处理支付 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125386)
-- 发布时间：2018/9/27 11:33:00
-- [求助]表A 没有相关数据时，如何处理支付
我做了个用余额来支付订单的页面，但如果客户 没有存款 余额表 里没有这个客户时，点击余额支付，就报错
此主题相关图片如下：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
-- 发布时间：2018/9/27 11:36:00
--
For Each r As Row In Tables("订单表").GetCheckedRows
If r("付款状态") = "已付款" Then
MessageBox.Show("订单编号: " & r("订单编号") & " " & r("付款状态") & " , 不能重复核销!","提醒" )
Else
Dim r3 As DataRow = DataTables("UserYE").Find("客户ID = \'" & r("客户ID") & "\'")
If r3 Is Nothing Then
msgbox("没找到")
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
End If
DataTables("订单表").Save()
Next
-- 发布时间：2018/9/27 12:13:00
--
谢谢版主。想到这样子做，就是不会写，记不住代码