红袍老师， 选择不同的页面 希望页面上的菜单根据表变化，下面的代码没有生成菜单，劳烦您在给看看
Dim menuStrip As new System.Windows.Forms.MenuStrip()
Dim tab= e.Form.Controls("TabControl1").Basecontrol
Dim tpg = tab.TabPages(e.Sender.SelectedIndex)
tpg.Controls.add(vars("菜单"))’生成菜单
Dim gz As String = DataTables("AS002分类编码方案").Find("基础档案名称 = '菜单列表'")("编码规则")‘添加菜单项目
Dim dt As DataTable = DataTables("菜单列表")
Dim ft As String= "([窗口名称] Like '%,"& tpg.Name &"'or [窗口名称] Like '"& tpg.Name &",%' or [窗口名称] Like '%\"& tpg.Name &"\%' or [窗口名称]='"& tpg.Name &"')"
For Each dr As DataRow In dt.Select(ft,"编码规则")
If dr.IsNull("编码规则") = False AndAlso dr("编码规则").Length = val(gz(0)) Then
Dim tsmi As new System.Windows.Forms.ToolStripMenuItem
tsmi.name = dr("编码规则")
tsmi.Text = dr("编码名称")
menuStrip.Items.Add(tsmi)
AddHandler tsmi.Click, AddressOf menu_Click
Functions.Execute("菜单生成",tsmi,dt,gz)
End If
Next
加好友 
发短信
Post By：2015/8/5 10:23:00 [只看该作者]
