标题：下拉窗口＋分页＋CheckedListBox 为何这么难
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目222222222.rar |
呵呵，你连最起码的都没搞定，你甚至写出了这样的代码：Forms("窗口1").Controls("TabControl1").ToolTip.Count
所以不要急，还得先看看所用到控件的帮助说明。
第三行中的要求虽然采用增加页面和动态增加控件的方法能解决，但这样打开下拉窗口都这样效率是否太低呢？
代码写错了，第三行应该为：Forms("窗口1").Controls("TabControl1").TabPages.Count()
不好意思
即使改过来，也不能做到：
不同行的下拉窗口打开时，之前所勾选的项目能够显示出来，而且能够再进行增加或者减少，请问该如何更改
以为你上次已经搞定了呢：
DropDownOpened 事件：
Dim n As Integer = Forms("窗口1").Controls("TabControl1").SelectedIndex
Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox" & n+1)
clb.value = CurrentTable.current("铺市品项")
With Forms("窗口1").DropDownBox
Dim s As String
For i As Integer = 0 To Forms("窗口1").Controls("TabControl1").TabPages.Count() -1
Forms("窗口1").Controls("TabControl1").SelectedIndex = i
clb = Forms("窗口1").Controls("CheckedListBox" & i+1)
If clb.value > ""
Exit For
Else
Forms("窗口1").Controls("TabControl1").SelectedIndex = 0
End If
Next
End With
动态增加控件、页面我还不会···· 谁能提示一下 谢谢～
在更改“下拉窗口”不同页面的选项（已经增加或者减少），页面来回切换一下，选项又回到了初始状态。
这个就是我一直困扰的问题
那是你的selectedindexchange事件的代码有问题吧，仔细研究一下吧。
selectedindexchange:中的这一段代码有问题：
If CurrentTable.Current() isnot Nothing Then
e.Form.Controls("CheckedListBox" & nn).Value = CurrentTable.Current("铺市品项")
End If
可是如何更改为即能承接原始的选项，又能保留目前所更改后的选项呢？
selectedindexchange:中的这一段代码有问题：
If CurrentTable.Current() isnot Nothing Then
e.Form.Controls("CheckedListBox" & nn).Value = CurrentTable.Current("铺市品项")
End If
可是如何更改为即能承接原始的选项，又能保留目前所更改后的选项呢？
不懂“承接” “保留”是什么意思啊
简单的说就是对之前的数据进行更改，下拉窗口生成时，已经选择的内容会在各个页面勾选出来。这时想对选项进行更改，有一些要，有一些不要，有一些要增加。最后下拉窗口更改后的选项保存到该字段中