- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表A鼠标点击列时窗口提醒 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180277)
-- 发布时间：2022/10/11 20:10:00
-- [求助]表A鼠标点击列时窗口提醒
求助表a切换表列是，右侧窗口提醒
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表a当前列填写提醒.foxdb |
-- 发布时间：2022/10/11 20:28:00
--
到表Aclick事件处理，列名通过e.col.name参数获取，然后使用find函数到表B查询判断即可
-- 发布时间：2022/10/22 9:44:00
-- 回复：（有点蓝）到表Aclick事件处理，列名通过e.col....
蓝总，帮忙看看了，代码报错
Dim t As Table = Tables("窗口1_Table2")
With Tables("窗口1_Table1")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "列名 = e.Col.name "
End If
End With
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:表a列名对表b列名列的行筛选.foxdb |
-- 发布时间：2022/10/22 9:48:00
--
先看3遍：http://www.foxtable.com/webhelp/topics/1284.htm
t.Filter = "列名 = \'" & e.Col.name & "\' "
-- 发布时间：2022/10/22 10:39:00
-- 回复：（有点蓝）先看3遍：http://www.foxtable.com/w...
蓝总，窗口中表A当前列名对表B列名筛选，无效，帮忙再看看代码怎么修改
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:表a列名对表b列名列的行筛选2.foxdb |
-- 发布时间：2022/10/22 11:09:00
--
这种到AfterSelChange事件处理
-- 发布时间：2022/10/22 11:57:00
-- 回复：（有点蓝）这种到AfterSelChange事件处理http:/...
蓝总，按上楼指导，下面代码还是无效，求助
表A_AfterSelChange
Select Case c.name
Case "第一列","第二列","第三列","第四列"
\'e.Table.StartEditing()
Dim t As Table = Tables("窗口1_Table2")
With Tables("表A")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "[列名] = \' &
e.Col.name & \'"
End If
End With
End Select
-- 发布时间：2022/10/22 14:18:00
--
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Dim t As Table = Tables("窗口1_Table2")
With Tables("表A")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "[列名] = \' & c.name & \'"
End If
End With
-- 发布时间：2022/10/22 14:30:00
-- 回复：（有点蓝）Dim c As Col =...
蓝总，上面代码放进去无效
要实现的效果是，当表A当前列在第一列是，表B的列名列值等于“第一列”的行筛选出来
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:表a列名对表b列名列的行筛选3.foxdb |
-- 发布时间：2022/10/22 14:40:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表a列名对表b列名列的行筛选3.zip |