Dim r As Row = Tables("表A").Current
If r("缴费方式") = "油卡" Then
If r.IsNull("油卡种类") Then
msgbox("油卡种类必填")
Return
End If
If r.IsNull("油卡卡号") Then
msgbox("油卡卡号必填")
加好友 
发短信
Post By：2017/3/27 0:14:00 [显示全部帖子]
