组合框使用教程(三)----组合框行来源模糊筛选

tmtony

不错,不错!!

一点通

原帖由 goto2008 于 2007-8-22 16:07 发表
我想提个建议

当组合框里筛选得只剩下最后一个时。能不能让它自动就填入到组合框里
省得人为再下拉这一个。

这个提议很好, 其实在原基础上增加一句代码就能实现,代码如下
Private Sub 生产单位_Change()  '组合框的更改后事件
    Me.列表142.SetFocus     '先将焦点移到别的控件上
    Me.生产单位.Requery     '更新组合框的源数据
    Me.生产单位.SetFocus    '然后再将焦点返回到原组合框
    If Nz(生产单位) <> "" Then Me.生产单位.SelStart = Len(Me.生产单位) '如果组合框有数据时将焦点移到字符的后面
    Me.生产单位.Dropdown   '展开组合框的列表数据
    If Me.生产单位.ListCount = 1 Then Me.生产单位 = Me.生产单位.ItemData(0) '当只有一个符合条件时,直接提取数据到组合框
End Sub

例子

fannky

原帖由 一点通 于 2007-8-25 12:05 发表


这个提议很好, 其实在原基础上增加一句代码就能实现,代码如下
Private Sub 生产单位_Change()  '组合框的更改后事件
    Me.列表142.SetFocus     '先将焦点移到别的控件上
    Me.生产单位.Requery     ...

发现一个问题，在Win2000+Access2003环境下出错！包括我之前发布的作业也一样。
现象如下：
假如我输入“河”他会自动在后面加n个河（根据记录条数而变化）……
在Xp下没有发现，该怎么改？

ranor

学习下

wjw8216

学习！支持

tytill

组合框和有用处，相当感谢，顶

yxf320123

谢谢分享

zdjzdr

学习了，谢谢管理员

dai1216

这个不错，要好好学习一下

shangrilar

真是长知识！！！！！！！！！！！！！