|
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
|
加好友 
发短信
Post By：2018/6/24 20:25:00 [显示全部帖子]
