Dim ColName As String = e.ComboBox.Text '获得组合框的内容
msgbox(ColName)
Dim index As Integer =0
'没有索引.只能是遍历进行判断
For i As Integer = 0 To e.ComboBox.Items.count - 1
If e.ComboBox.Items(i).Name = ColName
index=i
End If
Next
msgbox(index)
ListSecond=ListFirst(index).CodeNames
With CurrentTable
If .Cols.Contains(ColName) Then '如果当前表包括输入名称的列
.Select(.RowSel, .Cols(ColName).Index) '那么选择该列.
End If
End With
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox2").Items.Clear
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox2").Text=""
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox3").Items.Clear
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox3").Text=""
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox4").Items.Clear
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox4").Text=""
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox5").Items.Clear
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox5").Text=""
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox6").Items.Clear
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox6").Text=""
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox7").Items.Clear
RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox7").Text=""
msgbox("Combox2项目个数" & ListSecond.Count)
If ListSecond.Count>0
With RibbonTabs("数据统计").Groups("功能组1").Items("工具栏1").Items("Combox2")
.Items.Clear '清除原有项目
For i As Integer = 0 To ListSecond.Count - 1
'定义一个标准按钮,按钮的名称等于列名称.
Dim b As New RibbonMenu.Button(ListSecond(i).Name)
b.Text = ListSecond(i).Name '按钮的标题也等于列名称
.Items.Add(b)
Next
If .Items.Count >0
.Text=.Items(0).Name
End If
End With
msgbox("Combox3项目个数" & ListThird.Count) '这些都弹出什么值？
……
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
加好友 
发短信
Post By：2019/11/4 15:10:00 [显示全部帖子]
