Foxtable(狐表)用户栏目专家坐堂 → 窗口按钮执行


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

主题:窗口按钮执行

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


加好友 发短信
等级:童狐 帖子:271 积分:2246 威望:0 精华:0 注册:2020/9/28 14:53:00
窗口按钮执行  发帖心情 Post By:2021/5/11 16:44:00 [只看该作者]

在窗口A中,通过对表A的A列筛选,如果B列,C列的值有多个,执行代码1,如果B列、C例的值均为一个。执行代码2,如何实现

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


加好友 发短信
等级:超级版主 帖子:111422 积分:567186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/11 16:50:00 [只看该作者]

B列,C列的值有多个指什么?截图具体数据说明一下

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


加好友 发短信
等级:童狐 帖子:271 积分:2246 威望:0 精华:0 注册:2020/9/28 14:53:00
回复:(有点蓝)B列,C列的值有多个指什么?截图具...  发帖心情 Post By:2021/5/11 17:00:00 [只看该作者]

B列有多个,C列只有“是”或“否”,A列有重复,B列,D列不重复,C列只有“是”或“否”

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


加好友 发短信
等级:超级版主 帖子:111422 积分:567186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/11 17:11:00 [只看该作者]

没看懂,截图表格数据说明一下

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


加好友 发短信
等级:童狐 帖子:271 积分:2246 威望:0 精华:0 注册:2020/9/28 14:53:00
回复:(有点蓝)没看懂,截图表格数据说明一下  发帖心情 Post By:2021/5/12 8:54:00 [只看该作者]

在窗口表B内通过筛选得到如图,1、点新增按钮,如果BZ列存在多值,提示,选择,2、如果当通过鼠标选择第二行,再点新增按钮,对选择第二行的BZ列值123对应的ZT列进行判断,对应的ZT列值为B,则增加,否则,提示。3、如果当通过鼠标选择第三行,点新增按钮,对选择第三行的BZ列值456对应的ZT列进行判断,对应的ZT列值为B,则增加,否则,提示。

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


加好友 发短信
等级:童狐 帖子:271 积分:2246 威望:0 精华:0 注册:2020/9/28 14:53:00
回复:(有点蓝)没看懂,截图表格数据说明一下  发帖心情 Post By:2021/5/12 8:56:00 [只看该作者]

在窗口表B内通过筛选得到如图,1、点新增按钮,如果BZ列存在多值,提示,选择,2、如果当通过鼠标选择第二行,再点新增按钮,对选择第二行的BZ列值123对应的ZT列进行判断,对应的ZT列值为B,则增加,否则,提示。3、如果当通过鼠标选择第三行,点新增按钮,对选择第三行的BZ列值456对应的ZT列进行判断,对应的ZT列值为B,则增加,否则,提示。
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20210512083326.png
图片点击可在新窗口打开查看

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


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

还是没怎么看懂,试试
Dim r As Row = Tables("表A").current
If Tables("表A").compute("count(XM)","XM <> '" & r("XM") & "'") > 0 Then
    If e.index > 0 Then
        If r("ZT") = "B"
            Tables("表A").addnew
        Else
            msgbox("提示")
        End If
    Else
        msgbox("选择")
    End If
Else
    Tables("表A").addnew
End If

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


加好友 发短信
等级:童狐 帖子:271 积分:2246 威望:0 精华:0 注册:2020/9/28 14:53:00
回复:(有点蓝)  发帖心情 Post By:2021/5/12 13:41:00 [只看该作者]

还是不行,只对选择的行有用,当选取任意行(第二行或第一行),BZ列的值是一样的为123,要对选取的行的值(123),进行判断,123对应的ZT列内有A与B,如果全为B,增加行,否则,提示修改
[此贴子已经被作者于2021/5/12 13:46:42编辑过]

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


加好友 发短信
等级:童狐 帖子:271 积分:2246 威望:0 精华:0 注册:2020/9/28 14:53:00
回复:(有点蓝)  发帖心情 Post By:2021/5/12 14:16:00 [只看该作者]

还是不行,只对选择的行有用,当选取任意行(第二行或第一行),BZ列的值是一样的为123,要对选取的行的值(123),进行判断,123对应的ZT列内有A与B,如果全为B,增加行,否则,提示修改
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:lr.foxdb


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


加好友 发短信
等级:超级版主 帖子:111422 积分:567186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/12 14:17:00 [只看该作者]

Dim r As Row = Tables("表A").current
If Tables("表A").compute("count(XM)","XM = '" & r("XM") & "' and  ZT <>'B'") > 0 Then
     msgbox("提示")
Else
    Tables("表A").addnew
End If

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