[已解决][求助]感谢suye1010老师的帮助！解决了题外题问题。

zzh49

       各位老师好！请帮助解决一个vb问题，我知道这是excel的题外题，可我确实不会也无处求助，精英培训是我家，只好寄希望在家中解决。那位热心者愿出手相助，我不胜感激。
问题在附件的说明里。附件： 附件.rar (11.78 KB, 下载次数: 12)

2012-6-13 19:03 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

suye1010

2012-6-13 19:48

1. Private Sub test()
   
2.     Dim myData As String, SQL As String
   
3.     Dim myDB As DAO.DATABASE, myRs As DAO.Recordset
   
4.     myData = ThisWorkbook.Path & "\数据库.mdb"
   
5.     On Error Resume Next
   
6.     Set myDB = OpenDatabase(myData, False, False, ";pwd=1234")
   
7. 
   
8.         SQL = "select Distinct [" & combo1.Text & "] from [表1]"
   
9.         Set myRs = myDB.OpenRecordset(SQL)
   
10.     Do
    
11.         Combo2.AddItem myRs.Fields(combo1.Text)
    
12.         myRs.MoveNext
    
13.     Loop While myRs.EOF = False
    
14. End Sub
    

复制代码

对于正常运行的此代码，必须引用 Microsoft DAO 3.6 对象库。若要执行此操作，在 Visual Basic 编辑器中 工具 菜单上单击 引用，并确保已选中 Microsoft DAO 3.6 对象库 的复选框。

跳转到最佳答案楼层

无聊的疯子

使用 sql 语句,将选择字段的数据交给 数组,然后用字典来排除重复项就可以了!!

zzh49

无聊的疯子 发表于 2012-6-13 19:21
使用 sql 语句,将选择字段的数据交给 数组,然后用字典来排除重复项就可以了!!

老师，我不会，能帮助写出代码吗
谢谢！

suye1010

1. Private Sub test()
   
2.     Dim myData As String, SQL As String
   
3.     Dim myDB As DAO.DATABASE, myRs As DAO.Recordset
   
4.     myData = ThisWorkbook.Path & "\数据库.mdb"
   
5.     On Error Resume Next
   
6.     Set myDB = OpenDatabase(myData, False, False, ";pwd=1234")
   
7. 
   
8.         SQL = "select Distinct [" & combo1.Text & "] from [表1]"
   
9.         Set myRs = myDB.OpenRecordset(SQL)
   
10.     Do
    
11.         Combo2.AddItem myRs.Fields(combo1.Text)
    
12.         myRs.MoveNext
    
13.     Loop While myRs.EOF = False
    
14. End Sub
    

复制代码

对于正常运行的此代码，必须引用 Microsoft DAO 3.6 对象库。若要执行此操作，在 Visual Basic 编辑器中 工具 菜单上单击 引用，并确保已选中 Microsoft DAO 3.6 对象库 的复选框。

zzh49

suye1010 发表于 2012-6-13 19:48
对于正常运行的此代码，必须引用 Microsoft DAO 3.6 对象库。若要执行此操作，在 Visual Basic 编辑器中 [/ ...

myData = ThisWorkbook.Path & "\数据库.mdb"
这句有问题，调整后正常。
非常感谢！评分系统好像有问题，没法评分，抱歉。

zzh49

您给的代码在窗体不重新启动情况下，而改变Combo1的选择时，Combo2显示本次对应内容，也保留了前次（或几次）内容，应如何解决。
请再帮助。
谢谢！

zzh49

已经解决了6楼的问题。