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

tz-chf

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

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

想看，先顶一下。

原：

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编辑过]

tz-chf

以下是引用一点通在2007-3-21 0:32:00的发言：
谢谢分享,获得焦点自动打开组合框会更加完美

用拼音首字母输入，应用在对选项比较熟悉（因为要求从第一个字开始输入，通用的如行政区划），而且选项比较多，要用滚动条拉动的时候。否则就用鼠标直接了当。

也能接受字母或其它的输入，可以用在其它的地方。

tz-chf

以下是引用wu8313在2007-3-26 11:14:00的发言：



如果，想要增加一个省或者一个城市怎么办？

在表里加

tz-chf

用鼠标点一下就可以，上下键头你可能要好多下才行。而且象这种数据基本是已知的就用拼音输入就行了。

tz-chf

行政区域全不全我不知道，台州的部分是对的。