以下代码用于菜单功能区中列表框中数据动态列表项目的取得
Dim itm As Object
For Each itm In RibbonTabs(RibbonTabs.SelectedTab.Name).Groups(RibbonTabs.SelectedTab.name).Items
If RibbonTabs.SelectedTab.Name <> "主界面" Then
With RibbonTabs(RibbonTabs.SelectedTab.Name).Groups(RibbonTabs.SelectedTab.Name).Items(itm.name)
If TypeOf itm Is RibbonMenu.ComboBox Then
.Items.Clear
For Each c As String In DataTables(RibbonTabs.SelectedTab.Name).SQLGetValues(itm.name)
上面这句代码可以取得包括逻辑值TRUE和false作为列表项目，是没有问题的，只不过列表项目无法排序
For Each c As String In DataTables(RibbonTabs.SelectedTab.Name).SQLGetValues(itm.name, "", itm.name)
但是改为上面这句后，其他都可以取得值，并且进行了排序，但是逻辑列的值就取不出来了。
Dim b As New RibbonMenu.Button(c)
b.Text = c
.Items.Add(b)
Next
End If
End With
End If
Next
老师，上面黑字体的部分怎么解决呢？请指导
加好友 
发短信
Post By：2023/8/22 15:58:00 [只看该作者]
此主题相关图片如下：1.png