- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 项目发布后的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142712)
-- 发布时间：2019/11/4 14:48:00
-- 项目发布后的问题
此主题相关图片如下：qq截图20191104143959.png
发布项目后，自己做的下拉菜单的功能怎么用不了了，点击了没反应，原来的是可以用的
此主题相关图片如下：qq截图20191104143930.png
-- 发布时间：2019/11/4 15:10:00
--
写了什么代码？
-- 发布时间：2019/11/4 15:16:00
--
你看一下，下拉框的代码主要在changedcommited事件里
-- 发布时间：2019/11/4 15:39:00
--
changedcommited事件有什么代码？请发上来。我没有千里眼，看到您的电脑上的代码
-- 发布时间：2019/11/4 16:03:00
--
这是第一个下拉框的changedcomitted事件代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:newtemp (2).txt |
-- 发布时间：2019/11/4 16:50:00
--
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
-- 发布时间：2019/11/4 18:04:00
--
此主题相关图片如下：3.png
此主题相关图片如下：2.png
前三个是这个，第四个弹出的是combobox3的项目个数
此主题相关图片如下：1.png
-- 发布时间：2019/11/4 20:24:00
--
这样呢？
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 \'按钮的标题也等于列名称
msgbox(b.Text)
.Items.Add(b)
Next
If .Items.Count >0
.Text=.Items(0).Name
msgbox(.Text)
End If
End With