German Aus einer ArrayList Daten in Textfelder oder eine Tabelle schreiben

Discussion in 'German Forum' started by JOTHA, Oct 23, 2016.

  1. JOTHA

    JOTHA Well-Known Member Licensed User

    Hallo Forum,

    ich habe folgendes Problem:
    Mit ContactUtils erhalte ich zu verschiedenen Kontakten Telefonnummern.
    Manchmal ist es nur 1 Telefonnummer, manchmal sind es 5 Telefonnummern und manchmal erhalte ich keine Telefonnummer.

    Nun möchte ich diese Telefonnummern in maximal 4 Felder (z.B.: EditText oder in eine Tabelle) übertragen.
    Die erste Schwierigkeit ist bereits jetzt schon, das ich zwar in dem Beispiel die Telefonnummer als ArrayList im Format [PhoneType=Geschäft, Number=+49-7171-XXXXXX, IsInitialized=true] erhalte und in der Log-Datei auch alle 4 Telefonnummern einzeln sehe, aber wie kann ich jetzt diese zuweisen (siehe Beispiel)?

    Code:
    For Each phone As cuPhone In ContactsUtils1.GetPhones(Kontakt.Id)
            
    Dim Kontakte_Telefon_1,  Kontakte_Telefon_2, Kontakte_Telefon_3, Kontakte_Telefon_4 As String
            Kontakte_Telefon_1 = ContactsUtils1.GetPhones(Kontakt.Id).Get(
    0)
            Kontakte_Telefon_2 = ContactsUtils1.GetPhones(Kontakt.Id).Get(
    1)
            Kontakte_Telefon_3 = ContactsUtils1.GetPhones(Kontakt.Id).Get(
    2)
            Kontakte_Telefon_4 = ContactsUtils1.GetPhones(Kontakt.Id).Get(
    3)
                
    Log(""&phone.Number&"")
    Next
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice