动态生成快捷菜单筛选问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态生成快捷菜单筛选问题

共有1561人关注过本帖树形打印复制链接主题：动态生成快捷菜单筛选问题

良才

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：788 积分：6297 威望：0 精华：0 注册：2012/6/11 17:21:00

动态生成快捷菜单筛选问题 发帖心情

Post By：2016/12/31 14:09:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.zip

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161231140329.png

点击筛选车次按钮动态生成快捷菜单（根据车次列），求点击“浙A9L916(第1车)”按钮筛选车次浙A9L916(第1车)”的行，求代码？谢谢

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4650 积分：33912 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2016/12/31 23:59:00 [只看该作者]

按键单击事件代码改为：

e.Form.Strips("筛选车次").Items.Clear() '清除原来的项目

For Each bj As String In DataTables("窗口1_Table1").GetValues("车次")

e.Form.Strips("筛选车次").Items.Add("checi_" & bj, bj, "", StripItemTypeEnum.MenuItem)

e.Sender.ShowContextStrip(0, e.Sender.Height, e.Form.Strips("筛选车次"))

窗口的菜单事件ItemClick代码：

If e.StripItem.Name.StartsWith("checi_") Then '如果菜单项目用约定的字符开头

Tables("窗口1_Table1").Filter = "车次 = '" & e.StripItem.Text & "'"

End If

良才

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：788 积分：6297 威望：0 精华：0 注册：2012/6/11 17:21:00

Post By：2017/1/2 20:45:00 [只看该作者]

谢谢

主题：动态生成快捷菜单筛选问题