Question

vb中如何实现combox 的显示列表中能自动把 重复的记录删除掉

Private Sub Form_Load()
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\sjk.mdb") '打开数据库
sql = "select 所属地区 from 故障信息"
Set myrs = mydb.OpenRecordset(sql)
If myrs.EOF = False Then myrs.MoveLast
If myrs.BOF = False Then myrs.MoveFirst
For i = 0 To myrs.RecordCount - 1
Combo1.AddItem (myrs.Fields(0))
myrs.MoveNext
Next i
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
myrs.Close
mydb.Close
如何能添加个程序能把combo1list 中的重复项目去除

Answer 1

改sql语句
sql = "select distinct 所属地区 from 故障信息"
这样就不会有重复的了