[求助]删除指定“预留风险金”行同时执行相应代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口表Tables("工程资金审批单_Table1")中删除指定“预留风险金”这一行，重新计算forms("工程资金审批单").controls("Label10").text = IIF(forms("工程资金审批单").controls("Label4").text = "",0,forms("工程资金审批单").controls("Label4").text) - IIF(forms("工程资金审批单").controls("Label7").text = "",0,forms("工程资金审批单").controls("Label7").text)

我把代码放在窗口表DataRowDeleted中不执行

有“预留风险金这一行”执行forms("工程资金审批单").controls("Label10").text = IIF(forms("工程资金审批单").controls("Label4").text = "",0,forms("工程资金审批单").controls("Label4").text) - IIF(forms("工程资金审批单").controls("Label7").text = "",0,forms("工程资金审批单").controls("Label7").text) + r("扣款金额")

有点蓝老师，放在全局表事件好像不起作用

有点蓝老师，我的窗口Tables("工程资金审批单_Table1")是没有绑定表的，添加启用事件的代码这样好像也不行

我的代码如下：

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

End If

Functions.Execute("设置剩余金额颜色")

End If

End With

就是不知道放在窗口表事件哪个位置会起作用

还有请教有点蓝老师

上面这个代码IFF可以用IsNull代替写吗？

放到按钮里面的话那我就不能实时的看到数据变动，我想达到的效果是删除行同时要计算的数据发生变动

有点蓝老师，您看还有通过其他的方法能实现吗？

我放在那里试过了，代码不执行。我把代码放在PositionChanged当中，点不同的单元格代码能执行，但不是我想要的效果

麻烦有点蓝老师帮忙看一下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.foxdb

主题：[求助]删除指定“预留风险金”行同时执行相应代码