[已解决]向"烟雨江南"老师求助(感谢两位老师的帮助)

xz005

 

9YqUxlPw.rar (21.47 KB, 下载次数: 6)

2008-2-1 19:55 上传

点击文件名下载附件
向"烟雨江南"老师求助

在此,先向"烟雨江南"老师说声感谢!

俺的问题是怎样才能在ComboBox1中显示不重复的名称.

假设ComboBox1是河南省,接下来在ComboBox2中则是有(郑州市,洛阳市,开封市)可以选择!

[此贴子已经被作者于2008-2-2 16:23:43编辑过]

最佳答案

月排行榜 / 总排行榜

戏子

2008-2-1 22:37

烟版已经回家乡了,估计月底回来

你的问题如下:

Private Sub UserForm_Initialize()
Dim DBpath As String
Dim iCount As Integer
Dim i As Integer

DBpath = "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\data.mdb" & ""
If CNN.State = 1 Then CNN.Close
CNN.Open DBpath

strSQl = "select 省份 from 资料 group by 省份"
    RST.Open strSQl, CNN, adOpenKeyset, adLockPessimistic
    iCount = RST.RecordCount
    RST.MoveFirst
    For i = 1 To iCount
        ComboBox1.AddItem RST.Fields("省份")
        RST.MoveNext
    Next i
    RST.Close

End Sub

Private Sub ComboBox1_AfterUpdate()
        ComboBox2.Clear
        strSQl = "select 城市 from 资料 where 省份 = '" & UCase(ComboBox1.Value) & "'"
        RST.Open strSQl, CNN, adOpenKeyset, adLockPessimistic
        For i = 1 To RST.RecordCount
            ComboBox2.AddItem RST.Fields("城市")
            RST.MoveNext
        Next
        RST.Close

End Sub

Zou9Rnsc.rar (19.8 KB, 下载次数: 21)

2008-2-1 22:37 上传

点击文件名下载附件
向"烟雨江南"老师求助

跳转到最佳答案楼层

戏子

烟版已经回家乡了,估计月底回来

你的问题如下:

Private Sub UserForm_Initialize()
Dim DBpath As String
Dim iCount As Integer
Dim i As Integer

DBpath = "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\data.mdb" & ""
If CNN.State = 1 Then CNN.Close
CNN.Open DBpath

strSQl = "select 省份 from 资料 group by 省份"
    RST.Open strSQl, CNN, adOpenKeyset, adLockPessimistic
    iCount = RST.RecordCount
    RST.MoveFirst
    For i = 1 To iCount
        ComboBox1.AddItem RST.Fields("省份")
        RST.MoveNext
    Next i
    RST.Close

End Sub

Private Sub ComboBox1_AfterUpdate()
        ComboBox2.Clear
        strSQl = "select 城市 from 资料 where 省份 = '" & UCase(ComboBox1.Value) & "'"
        RST.Open strSQl, CNN, adOpenKeyset, adLockPessimistic
        For i = 1 To RST.RecordCount
            ComboBox2.AddItem RST.Fields("城市")
            RST.MoveNext
        Next
        RST.Close

End Sub

Zou9Rnsc.rar (19.8 KB, 下载次数: 21)

2008-2-1 22:37 上传

点击文件名下载附件
向"烟雨江南"老师求助

laosanjie

QUOTE:

以下是引用戏子在2008-2-1 22:37:00的发言：

烟版已经回家乡了,估计月底回来

你的问题如下:

Private Sub UserForm_Initialize()
Dim DBpath As String
Dim iCount As Integer
Dim i As Integer

DBpath = "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\data.mdb" & ""
If CNN.State = 1 Then CNN.Close
CNN.Open DBpath

strSQl = "select 省份 from 资料 group by 省份"
    RST.Open strSQl, CNN, adOpenKeyset, adLockPessimistic
    iCount = RST.RecordCount
    RST.MoveFirst
    For i = 1 To iCount
        ComboBox1.AddItem RST.Fields("省份")
        RST.MoveNext
    Next i
    RST.Close

End Sub

Private Sub ComboBox1_AfterUpdate()
        ComboBox2.Clear
        strSQl = "select 城市 from 资料 where 省份 = '" & UCase(ComboBox1.Value) & "'"
        RST.Open strSQl, CNN, adOpenKeyset, adLockPessimistic
        For i = 1 To RST.RecordCount
            ComboBox2.AddItem RST.Fields("城市")
            RST.MoveNext
        Next
        RST.Close

End Sub

[em17][em17][em17] 收藏学习了。

烟雨江南

QUOTE:

以下是引用戏子在2008-2-1 22:37:00的发言：

烟版已经回家乡了,估计月底回来

回不去喽，道路封闭！

已经10年没回家过年了[em06]

烟雨江南

还可改成这样：

Private Sub UserForm_Initialize()
Dim DBpath As String
Dim iCount As Integer
Dim i As Integer

DBpath = "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\data.mdb" & ""
If CNN.State = 1 Then CNN.Close
CNN.Open DBpath

strSQl = "select 省份 from 资料 group by 省份"
    RST.Open strSQl, CNN, adOpenKeyset, adLockPessimistic
    iCount = RST.RecordCount
arr = RST.GetRows
ComboBox1.List = Application.WorksheetFunction.Transpose(arr)
    RST.Close

End Sub

Private Sub ComboBox1_AfterUpdate()
        ComboBox2.Clear
        strSQl = "select 城市 from 资料 where 省份 = '" & UCase(ComboBox1.Value) & "'"
        RST.Open strSQl, CNN, adOpenKeyset, adLockPessimistic
arr = RST.GetRows
ComboBox1.List = Application.WorksheetFunction.Transpose(arr)
        RST.Close

End Sub

xz005

忠心的感谢两位老师对俺的帮助!

再次感谢!!(“戏子老师”).(“烟雨江南老师”)

[此贴子已经被作者于2008-2-2 19:06:00编辑过]

烟雨江南

QUOTE:

以下是引用xz005在2008-2-2 16:18:00的发言：

忠心的感谢两位老师对俺的帮助!

再次感谢!!(“laosanjie老师”).(“烟雨江南老师”)

是戏子，不是laosanjie，有人看到要伤心了[em01]

lllllllll

[em01][em01][em01]

戏子

QUOTE:

以下是引用烟雨江南在2008-2-2 9:34:00的发言：

QUOTE:

以下是引用戏子在2008-2-1 22:37:00的发言：

烟版已经回家乡了,估计月底回来

回不去喽，道路封闭！

已经10年没回家过年了[em06]

[em01][em01]偶明天回了,羡慕吧!

乖小孩

谢谢分享,真是好用的技巧