Foxtable(狐表)用户栏目专家坐堂 → [求助]添加菜单


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

主题:[求助]添加菜单

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2018/6/24 20:25:00 [显示全部帖子]

Dim Striptab As WinForm.Strip= e.Form.Strips.Add("ca", StripTypeEnum.MainMenu)
'添加菜单按钮分割线
Dim DT As DataTable=DataTables("表A")
Dim levels As new List(of object)
levels.add(striptab)
For Each dr1 As DataRow In DataTables("表A").Select("", "menuid")
    Select Case dr1("mentype")
        Case "StripItemTypeEnum.MenuItem"
            For i As Integer = levels.count-1 To 0 Step -1
                If dr1("menuid").contains(levels(i).name) Then
                    Dim obj = levels(i).Items.Add(dr1("menuid"),dr1("poutcaption"),dr1("imgsmlt"),val(dr1("mentype")))
                    levels.add(obj)
                    Exit For
                End If
            Next
    End Select
Next

 回到顶部