我把注释掉的代码打开来，依旧是不行的With Tables("工程资金审批单_Table1")
Dim r1 As Row = Tables("工程资金审批单_Table1").Current
Dim r3 As Integer
r3 = .FindRow("[扣款内容] = '预留风险金'") '从第一行开始查找
If r3 >= 0 Then '如果找到的话
Else
If forms("工程资金审批单").controls("TextBox1").text = "" Then
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
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
加好友 
发短信
Post By：2020/10/14 14:03:00 [显示全部帖子]
