|
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
|
加好友 
发短信
Post By：2018/9/27 11:36:00 [显示全部帖子]
