Urgente: para q no salgan valores repetidos
Publicado por lokita (22 intervenciones) el 30/10/2003 16:31:54
como se puede hacer para q no me salgan valores repetidos en una lista, segun la opcion q escoja en un combobox???
(si en la base de datos tengo 3 registros, con provincia "Asturias", en la lista me sale 3 veces asturias y necesito q solo me salga una)
Muxas Graciass
Esto es lo q tengo puesto:
Private Sub Combo1_Click()
Dim db As Database
Dim tb As TableDef
Dim rc As Recordset
Dim unitem As ListItem
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\tienda.mdb")
Set tb = db.TableDefs("tiendas")
Set rc = tb.OpenRecordset()
List1.Clear
Do While Not rc.EOF
If Combo1.List(Combo1.ListIndex) = "Código Postal" Then
List1.AddItem rc![CodPostal]
ElseIf Combo1.List(Combo1.ListIndex) = "Provincia" Then
List1.AddItem rc![provincia]
Else
List1.AddItem rc![poblacion]
End If
rc.MoveNext
Loop
End Sub
(si en la base de datos tengo 3 registros, con provincia "Asturias", en la lista me sale 3 veces asturias y necesito q solo me salga una)
Muxas Graciass
Esto es lo q tengo puesto:
Private Sub Combo1_Click()
Dim db As Database
Dim tb As TableDef
Dim rc As Recordset
Dim unitem As ListItem
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\tienda.mdb")
Set tb = db.TableDefs("tiendas")
Set rc = tb.OpenRecordset()
List1.Clear
Do While Not rc.EOF
If Combo1.List(Combo1.ListIndex) = "Código Postal" Then
List1.AddItem rc![CodPostal]
ElseIf Combo1.List(Combo1.ListIndex) = "Provincia" Then
List1.AddItem rc![provincia]
Else
List1.AddItem rc![poblacion]
End If
rc.MoveNext
Loop
End Sub
Valora esta pregunta


0