菜单上的组合框如何从表中获取一列不重复的值做为列表项目 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

菜单上的组合框如何从表中获取一列不重复的值做为列表项目、。

窗口中的组合框可以用 ComboList 设置列表项目菜单的好像不可以。

好像不行,菜单看看属性,只能手工输入.

好像只能通过 Items 返回列表项目集合

此主题相关图片如下：菜单组合框列表项目.jpg

注意看下面的红字部分,与帮助上不同,呵

设计步骤

首先在实战演练功能区中增加一个功能组"任务二"，在该功能组中增加一个组合框"ColList"。
然后设置该组合框的ChangeCommitted事件代码为：

Dim ColName As String = e.ComboBox.Text '获得组合框的内容
With CurrentTable
    If .Cols.Contains(ColName) Then '如果当前表包括输入名称的列
        .Select(.RowSel, .Cols(ColName).Index) '那么选择该列。
    End If
End With

然后在系统事件CurrentTableChanged加入如下代码:

With RibbonTabs("功能区1")("任务二")("ColList")
.Items.Clear '清除原有项目
For Each r As Row In CurrentTable.rows
Dim b As New RibbonMenu.Button(r("第一列"))
b.Text = r("第一列")'按钮的标题也等于列名称
.Items.Add(b)
Next
End With

完成上述工作后，切换一下表或者重新打开文件，本功能即可生效。

[此贴子已经被作者于2011-12-18 17:41:38编辑过]

这样是可以实现把列里面的内容做为列表项目，但是重复的也出来了而且很卡

要取不重复的值。。。

[此贴子已经被作者于2011-12-18 18:24:25编辑过]

项目的AfterOpenProject事件中

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("学历", Gettype(String), 16)
dtb.Build()

Dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "第一列" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "学历" '指定数据接收列
f.Distinct = True
f.Fill() '填充数据

主题：菜单上的组合框 如何从表中获取一列不重复的值做为列表项目

主题：菜单上的组合框如何从表中获取一列不重复的值做为列表项目