- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口按钮执行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165243)
-- 发布时间：2021/5/11 16:44:00
-- 窗口按钮执行
在窗口Ａ中，通过对表Ａ的Ａ列筛选，如果Ｂ列，Ｃ列的值有多个，执行代码1，如果Ｂ列、Ｃ例的值均为一个。执行代码2，如何实现
-- 发布时间：2021/5/11 16:50:00
--
Ｂ列，Ｃ列的值有多个指什么？截图具体数据说明一下
-- 发布时间：2021/5/11 17:00:00
-- 回复：（有点蓝）Ｂ列，Ｃ列的值有多个指什么？截图具...
Ｂ列有多个，Ｃ列只有“是”或“否”，Ａ列有重复，Ｂ列，Ｄ列不重复，Ｃ列只有“是”或“否”
-- 发布时间：2021/5/11 17:11:00
--
没看懂，截图表格数据说明一下
-- 发布时间：2021/5/12 8:54:00
-- 回复：（有点蓝）没看懂，截图表格数据说明一下
在窗口表Ｂ内通过筛选得到如图，1、点新增按钮，如果BZ列存在多值，提示，选择，2、如果当通过鼠标选择第二行，再点新增按钮，对选择第二行的BZ列值123对应的ＺＴ列进行判断，对应的ＺＴ列值为Ｂ，则增加，否则，提示。3、如果当通过鼠标选择第三行，点新增按钮，对选择第三行的BZ列值456对应的ＺＴ列进行判断，对应的ＺＴ列值为Ｂ，则增加，否则，提示。
-- 发布时间：2021/5/12 8:56:00
-- 回复：（有点蓝）没看懂，截图表格数据说明一下
在窗口表Ｂ内通过筛选得到如图，1、点新增按钮，如果BZ列存在多值，提示，选择，2、如果当通过鼠标选择第二行，再点新增按钮，对选择第二行的BZ列值123对应的ＺＴ列进行判断，对应的ＺＴ列值为Ｂ，则增加，否则，提示。3、如果当通过鼠标选择第三行，点新增按钮，对选择第三行的BZ列值456对应的ＺＴ列进行判断，对应的ＺＴ列值为Ｂ，则增加，否则，提示。
此主题相关图片如下：qq图片20210512083326.png
-- 发布时间：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
-- 发布时间：2021/5/12 13:41:00
-- 回复：（有点蓝）
还是不行，只对选择的行有用，当选取任意行（第二行或第一行），ＢＺ列的值是一样的为123，要对选取的行的值（123），进行判断，123对应的ＺＴ列内有Ａ与Ｂ，如果全为Ｂ，增加行，否则，提示修改
[此贴子已经被作者于2021/5/12 13:46:42编辑过]
-- 发布时间：2021/5/12 14:16:00
-- 回复：（有点蓝）
还是不行，只对选择的行有用，当选取任意行（第二行或第一行），ＢＺ列的值是一样的为123，要对选取的行的值（123），进行判断，123对应的ＺＴ列内有Ａ与Ｂ，如果全为Ｂ，增加行，否则，提示修改
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:lr.foxdb |
-- 发布时间：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