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


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

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

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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望: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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望: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("扣款金额")

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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 10:27:00 [显示全部帖子]

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

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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 10:55:00 [显示全部帖子]

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

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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望: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代替写吗?

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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 11:16:00 [显示全部帖子]

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

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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 11:16:00 [显示全部帖子]

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

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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 11:23:00 [显示全部帖子]

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

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


加好友 发短信
等级:一尾狐 帖子:401 积分:4955 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2020/10/14 12:49:00 [显示全部帖子]

麻烦有点蓝老师帮忙看一下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.foxdb



 回到顶部
总数 13 1 2 下一页