以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]多值字段关联筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184901)

--  作者:rpg2813
--  发布时间:2023/1/14 7:54:00
--  [求助]多值字段关联筛选

图片点击可在新窗口打开查看此主题相关图片如下:猎豹截图20230114074432.png
图片点击可在新窗口打开查看
如图所示,“装备栏1”……的代码是

AfterSelChange里


Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
    Case "装备栏1"
        If Forms("窗口1").opened() Then
            Tables("窗口1_Table1").Filter = "阶级 <= \'" & e.Table.Current("可装备阶数") & "\' and (元素 = \'" & e.Table.Current("元素") & "\' or 元素亲和 = \'" & e.Table.Current("元素") & "\') and  类型 = \'" & e.Table.Current("装备栏1") & "\'"
        End If

但这只能单项,如果是多值时就不行,救助代码应该如何修改?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:传奇商店.foxdb

另外还有一个问题,如何让窗口绑定的表的列项与原表一致?
原表有10列,隐藏了5列,显示5列,窗口绑定的表如何完全一样?


--  作者:有点蓝
--  发布时间:2023/1/14 9:08:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:传奇商店.zip


没有隐藏列事件,只能是隐藏后点击按钮,在按钮里设置对应的列:http://www.foxtable.com/webhelp/topics/1775.htm

--  作者:rpg2813
--  发布时间:2023/1/15 18:27:00
--  
感谢超版,代码我好简洁,我消化一下