Foxtable(狐表)用户栏目专家坐堂 → 筛选问题


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

主题:筛选问题

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


加好友 发短信
等级:小狐 帖子:371 积分:2672 威望:0 精华:0 注册:2020/7/24 10:30:00
筛选问题  发帖心情 Post By:2022/12/30 14:33:00 [只看该作者]



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


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

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



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


加好友 发短信
等级:超级版主 帖子:110803 积分:563953 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/30 15:01:00 [只看该作者]

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


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


加好友 发短信
等级:小狐 帖子:371 积分:2672 威望:0 精华:0 注册:2020/7/24 10:30:00
回复:(有点蓝)[upload=zip,目录树.zip]viewFile.as...  发帖心情 Post By:2022/12/31 21:27:00 [只看该作者]

老师:
      我怎么把以下代码写的简介一点呢?



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

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


加好友 发短信
等级:超级版主 帖子:110803 积分:563953 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:371 积分:2672 威望:0 精华:0 注册:2020/7/24 10:30:00
回复:(有点蓝)参考:http://www.foxtable.com/webh...  发帖心情 Post By:2023/1/18 17:50:00 [只看该作者]

这个报错是怎么导致的?


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

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


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

Select Case e.col.Name

 回到顶部