调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm
With Tables("工程资金审批单_Table1")
Dim r1 As Row = Tables("工程资金审批单_Table1").Current
Dim r3 As Integer
r3 = .FindRow("[扣款内容] = '预留风险金'") '从第一行开始查找
If r3 >= 0 Then '如果找到的话
msgbox(1)
Else
msgbox(2)
If forms("工程资金审批单").controls("TextBox1").text = "" Then
msgbox(3)
forms("工程资金审批单").controls("Label3").text = IIF(forms("工程资金审批单").controls("Label1").text = "",0,forms("工程资金审批单").controls("Label1").text) - IIF(forms("工程资金审批单").controls("Label2").text = "",0,forms("工程资金审批单").controls("Label").text)
Else
msgbox(4)
forms("工程资金审批单").controls("Label3").text = IIF(forms("工程资金审批单").controls("Label1").text = "",0,forms("工程资金审批单").controls("Label1").text) - IIF(forms("工程资金审批单").controls("Label2").text = "",0,forms("工程资金审批单").controls("Label2").text)
End If
End If
End With