[求助]表A 没有相关数据时，如何处理支付 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我做了个用余额来支付订单的页面，但如果客户没有存款余额表里没有这个客户时，点击余额支付，就报错

此主题相关图片如下：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

DataTables("订单表").Save()

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

谢谢版主。想到这样子做，就是不会写，记不住代码

主题：[求助]表A 没有相关数据时，如何处理支付