以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184769)

--  作者:wukangppbb
--  发布时间:2022/12/30 14:33:00
--  筛选问题


怎么才能达到这种筛选效果?
选中以后按照鼠标选中的单元格进行填充。
我写的有问题


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20221230142645.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树.table



--  作者:有点蓝
--  发布时间:2022/12/30 15:01:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树.zip


--  作者:wukangppbb
--  发布时间:2022/12/31 21:27:00
--  回复:(有点蓝)[upload=zip,目录树.zip]viewFile.as...
老师:
      我怎么把以下代码写的简介一点呢?



If e.Col.Name = "PD02" Then
    e.Cancel = True
    Forms("窗口1").Open()
End If

If e.Col.Name = "PD01" Then
    e.Cancel = True
    Forms("窗口1").Open()
End If

If e.Col.Name = "PD03" Then
    e.Cancel = True
    Forms("窗口1").Open()
End If

If e.Col.Name = "PD04" Then
    e.Cancel = True
    Forms("窗口1").Open()
End If

If e.Col.Name = "PD05" Then
    e.Cancel = True
    Forms("窗口1").Open()
End If

--  作者:有点蓝
--  发布时间:2023/1/2 19:58:00
--  
参考:http://www.foxtable.com/webhelp/topics/1469.htm

Select Case e.Datacol.Name
    
Case "
PD01","PD02"......
    e.Cancel = True
    Forms("窗口1").Open()
End Select

--  作者:wukangppbb
--  发布时间:2023/1/18 17:50:00
--  回复:(有点蓝)参考:http://www.foxtable.com/webh...
这个报错是怎么导致的?


图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/1/19 9:11:00
--  
Select Case e.col.Name