Vad är telefonnumrena och adresserna i detta fall? RecSet(?)
Adressbok i VB
26 svar · 581 visningar · startad av ironhead · sida 2 av 2
Frågan, av ironhead
Hej! Jag försöker göra en enkel adressbok i VB. Jag använder VB6.0 & Access 2002. 1\.) Jag har gjort 2 listBoxar, 1 som heter grupper & 1 som heter namn. När jag klickar på en grupp ska namnen under dessa grupper uppenbara sig i ListBox2...hur plockar jag ut id:et ur ListBox1 för att kunna använda i selectsatsen i ListBox2 ? 2\.) För att senare göra denna adressbok lite snyggare skulle jag vilj
Läs frågan i sin helhet →Vilken version av Windows Common Controls använder du? 5.0 eller 6.0?
6.0 SP4
Dim itmx As ListItem
List1.ColumnHeaders.Add , , "col1"
List1.ColumnHeaders.Add , , "col2"
Do Until RecSet.EOF
If RecSet("fornamn") <> "" Or RecSet("efternamn") <> "" Then
Set itmx = List1.ListItems.Add(, , "")
itmx.ListSubItems.Add , , RecSet("fornamn") & " " & RecSet("efternamn")
End If
If RecSet("titel") <> "" Then
Set itmx = List1.ListItems.Add(, , "")
itmx.ListSubItems.Add , , RecSet("titel")
End If
If RecSet("foretag") <> "" Then
Set itmx = List1.ListItems.Add(, , "")
itmx.ListSubItems.Add , , RecSet("foretag")
End If
List1.ListItems.Add , , ""
If RecSet("arbetstelefon") <> "" Then
Set itmx = List1.ListItems.Add(, , "Arbete")
itmx.ListSubItems.Add , , RecSet("arbetstelefon")
End If
If RecSet("arbetsmobil") <> "" Then
Set itmx = List1.ListItems.Add(, , IIf(RecSet("arbetstelefon") = "", "Arbete", ""))
itmx.ListSubItems.Add , , RecSet("arbetsmobil")
End If
If RecSet("arbetstelefon") <> "" Or RecSet("arbetsmobil") <> "" Then
List1.ListItems.Add , , ""
End If
If RecSet("hemtelefon") <> "" Then
Set itmx = List1.ListItems.Add(, , "Hem")
itmx.ListSubItems.Add , , RecSet("hemtelefon")
End If
If RecSet("mobil") <> "" Then
Set itmx = List1.ListItems.Add(, , IIf(RecSet("hemtelefon") = "", "Hem", ""))
itmx.ListSubItems.Add , , RecSet("mobil")
End If
Loop
Otestat
red. Glöm det ...fel av mig!
När jag lägger till en grupp i min listvy så syns inte det nya värdet förens jag startat om programmet...hur uppdaterar jag fönstret efter en insert......jag har provat att köra "call" igen och "Refresh", men utan resultat..