我的代码如下:
With Tables("工程资金审批单_Table1")
Dim k As Double = DataTables("扣款登记表").Compute("Sum(扣款金额)","项目编号 = '" & forms("工程资金审批单").controls("Label2").text & "'And 扣款类型 = '预留风险金' " )
'MessageBox.Show(k)
Dim r3 As Integer
r3 = .FindRow("[扣款内容] = '预留风险金'") '从第一行开始查找
If r3 >= 0 Then '如果找到的话
Else
If forms("工程资金审批单").controls("TextBox3").text = "" Then
'If forms("工程资金审批单").controls("Label4").text = "" Then
'If forms("工程资金审批单").controls("Label7").text = "" Then
'forms("工程资金审批单").controls("Label10").text = - k
'Else
'forms("工程资金审批单").controls("Label10").text = forms("工程资金审批单").controls("Label7").text - k
'End If
'Else
forms("工程资金审批单").controls("Label10").text = IIF(forms("工程资金审批单").controls("Label4").text = "",0,forms("工程资金审批单").controls("Label4").text) - IIF(forms("工程资金审批单").controls("Label7").text = "",0,forms("工程资金审批单").controls("Label7").text) - k
'End If
Else
forms("工程资金审批单").controls("Label10").text = IIF(forms("工程资金审批单").controls("Label4").text = "",0,forms("工程资金审批单").controls("Label4").text) - IIF(forms("工程资金审批单").controls("Label7").text = "",0,forms("工程资金审批单").controls("Label7").text) - IIF(forms("工程资金审批单").controls("TextBox3").text = "",0,forms("工程资金审批单").controls("TextBox3").text ) - k
End If
Functions.Execute("设置剩余金额颜色")
End If
End With
就是不知道放在窗口表事件哪个位置会起作用