Foxtable(狐表)用户栏目专家坐堂 → 菜单ComboBox应该如何用代码设定列表项目? 相同方法窗口ComboBox却可以的


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

主题:菜单ComboBox应该如何用代码设定列表项目? 相同方法窗口ComboBox却可以的

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


加好友 发短信
等级:婴狐 帖子:20 积分:272 威望:0 精华:0 注册:2016/3/15 20:02:00
菜单ComboBox应该如何用代码设定列表项目? 相同方法窗口ComboBox却可以的  发帖心情 Post By:2016/3/27 8:00:00 [只看该作者]

窗口ComboBox可以正常设定为
列1
列2
列3
4
但是菜单ComboBox却设定为: 列1|列2|列3|4
以下代码应该如何修改,谢谢!

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("list")  ' 这个是窗口ComboBox, 正常设定
cmb.AllowEditValue=False

Dim f As String
For Each c As Col In Tables(e.Form.TableName).Cols
    If f ="" Then
        f=c.Name
    Else
        f=f  & "|" & c.Name
    End If
Next
cmb.ComboList = f
cmb.SelectedIndex=0

'------------------------------
'以下是菜单ComboBox,列表无法正常设定
Dim cmb As RibbonMenu.ComboBox = RibbonTabs("功能区1").Groups("功能组1").Items("list")

Dim f As String
For Each c As Col In Tables(CurrentTable.name).Cols
    If f ="" Then
        f=c.Name
    Else
        f=f  & "|" & c.Name
    End If
Next

cmb.Text = f


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/3/27 11:04:00 [只看该作者]

Dim cmb As RibbonMenu.ComboBox = RibbonTabs("功能区1").Groups("功能组1").Items("list")

For Each c As Col In Tables(CurrentTable.name).Cols
    Dim b As New RibbonMenu.Button(c.Name) '定义一个标准按钮
    b.Text= c.Name
    cmb.Items.add(b)
Next



 回到顶部