菜单中组合框动态获取表中对应列数据产生的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下代码用于菜单功能区中列表框中数据动态列表项目的取得

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)

End If

End With

End If

老师，上面黑字体的部分怎么解决呢？请指导

主题：菜单中组合框动态获取表中对应列数据产生的问题