[已解决]请蓝桥玄霜老师修改VB组合框数据源代码

zsd5237 · 发表于 2011-10-11 07:37

本帖最后由 zsd5237 于 2011-10-11 07:39 编辑

   这是蓝桥玄霜老师在见天前发布的一个用VB代码生成的组合框下拉数据集（不用数据有效性序列的方法），很实用，谢谢。
  目前有个问题：如果数据源的数据很多，有几千甚至于几万行数据，则要找出需要的数据很麻烦。表内的数据源的数据是有一定规律性的，即日期（年月日）组成编号的前八位数字，后三位数是该日期的编号的序列数，请蓝桥玄霜老师能否改一下代码，使组合框（单元格C2）内数据条目能按单元格C1的日期选定，并可随着在C1改变日期值后，组合框（单元格C2）内的数据条目也跟着改变。
另外：代码中的
Target.Count > 1 的意思能教我吗再次谢谢你的多次帮助指教！

最佳答案

月排行榜 / 总排行榜

9lee

2011-10-11 10:03

回复 zsd5237 的帖子

target.count>1:表示点击的单元格数量大于1

模仿一个VB组合框.rar (18.52 KB, 下载次数: 90)

淮南王 · 发表于 2011-10-11 07:48

我有同感！！！！！！

搁浅2008 · 发表于 2011-10-11 07:57

VB组合框.rar (16.07 KB, 下载次数: 26)

9lee · 发表于 2011-10-11 10:03

回复 zsd5237 的帖子

target.count>1:表示点击的单元格数量大于1

模仿一个VB组合框.rar (18.52 KB, 下载次数: 90)

zsd5237 · 发表于 2011-10-11 15:52

本帖最后由 zsd5237 于 2011-10-11 16:04 编辑

9lee 发表于 2011-10-11 10:03
回复 zsd5237 的帖子

target.count>1:表示点击的单元格数量大于1

思路太妙了，但如果将下面红字代码注释了，即不再激活C1的控件，是否更好？
Private Sub ComboBox1_Change()
ComboBox1.Visible = False
[c2] = ComboBox1.Text ': [c1].Select
End
9lee老师的代码开拓了思路，应当评为最佳答案。搁浅2008老师的代码也非常精彩，在此一并谢谢。
二位老师是否关注一下“请MXG825再帮助修改代码（修改数据库数据的代码）”，如能得到二位及MXG825等老师的帮助，必将万分感谢。

hyl9td · 发表于 2013-7-19 06:23

高手。

		自动登录	找回密码
密码			注册