Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("项目总表菜单")
Dim a As New C1.Win.C1Command.C1Command
a.name = "添加任务"
a.text = "添加任务"
Dim b As New C1.Win.C1Command.C1CommandLink(a)
Dim c As New RibbonMenu.ContextCommand(b)
If mnu1.items.Contains("添加任务") = False Then
mnu1.items.add(c)
End If
Dim sts As String = DataTables("基本信息").GetComboListString("任务类别1")
For Each st As String In sts.Split("|")
Dim d As New C1.Win.C1Command.C1Command
d.name = st
d.text = st
Dim g As New C1.Win.C1Command.C1CommandLink(d)
Dim f As New RibbonMenu.ContextCommand(g)
' mnu.Items.Add(st)
If c.items.Contains(st) = False Then
' mnu2 .items.add(st)
c.items.add(mnu1.items(st))
End If
Next
加好友 
发短信
Post By：2025/4/8 9:00:00 [显示全部帖子]
