按键单击事件代码改为：
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)
Next
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
加好友 
发短信
Post By：2016/12/31 23:59:00 [显示全部帖子]
