[原创原码]示例(行政区划)：三级联动组合框——一点小错误，已修正

tz-chf · 发表于 2007-3-21 04:45:00

内容是全国行政区划，可使用常规的鼠标选择，也可拼音首字母输入（此乃另一看点）。

也可扩展为更多级，道理是一样的。

想看，先顶一下。

原：

Private Sub Combo0_KeyPress(KeyAscii As Integer)
'只接受小写字母
If KeyAscii < Asc("a") Or KeyAscii > Asc("z") Then
Exit Sub
End If

pp = pp & Chr(KeyAscii)

KeyAscii = 0

Me.Combo0 = GetVar(pp, "tblProvince", "

roID", "province")

If Me.Combo0 = 0 Then
      Me.countyID = 0
      pp = ""
End If

Me.Combo2 = 0
Me.Combo4 = 0
Me.Combo2.Requery
Me.Combo4.Requery

End Sub

改成：

。。。

If Me.Combo0 = 0 Then
      pp = ""
End If

Me.countyID = 0
。。。

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2007-7-22 14:58:34编辑过]

zhao123 · 发表于 2024-3-23 15:05:28

下载

iameee · 发表于 2020-7-31 13:35:30

瞅瞅，谢谢

陈磊 · 发表于 2020-6-5 10:05:08

看看

ahdyxlc · 发表于 2020-4-24 15:40:03

学习一下谢谢分享

天涯沦落20131 · 发表于 2020-3-9 16:38:01

111111111

wgh3g · 发表于 2019-4-4 20:41:11

谢谢分享

rujd · 发表于 2019-2-18 11:13:16

谢谢

popo559 · 发表于 2019-2-2 07:21:23

学习学习

zhugeben · 发表于 2019-1-16 22:02:45

学习

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

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] [原创原码]示例(行政区划)：三级联动组合框——一点小错误，已修正

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)