Foxtable(狐表)用户栏目专家坐堂 → [求助]删除指定“预留风险金”行同时执行相应代码


  共有399人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
twef
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:345 积分:3565 威望:0 精华:0 注册:2015/4/30 15:42:00
[求助]删除指定“预留风险金”行同时执行相应代码  发帖心情 Post By:2020/10/14 9:28:00 [只看该作者]

窗口表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中不执行

 回到顶部
帅哥哟,离线,有人找我吗?
twef
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:345 积分:3565 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 9:30:00 [只看该作者]

有“预留风险金这一行”执行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("扣款金额")

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:60739 积分:307872 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/14 9:48:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
twef
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:345 积分:3565 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 10:27:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:60739 积分:307872 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/14 10:30:00 [只看该作者]

没有启用对应的事件,在表格加载数据后,添加启用事件的代码

 回到顶部
帅哥哟,离线,有人找我吗?
twef
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:345 积分:3565 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 10:55:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:60739 积分:307872 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/14 11:03:00 [只看该作者]

把窗口表类型改为sqltable,到窗口表事件处理

 回到顶部
帅哥哟,离线,有人找我吗?
twef
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:345 积分:3565 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 11:07:00 [只看该作者]

我的代码如下:
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
就是不知道放在窗口表事件哪个位置会起作用

 回到顶部
帅哥哟,离线,有人找我吗?
twef
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:345 积分:3565 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 11:10:00 [只看该作者]

还有请教有点蓝老师
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
上面这个代码IFF可以用IsNull代替写吗?

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:60739 积分:307872 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/14 11:12:00 [只看该作者]

回8楼,放到窗口按钮里
回9楼,不能

 回到顶部
总数 21 1 2 3 下一页