login  Naam:   Wachtwoord: 
Registreer je!
 Forum

textbox() in Do While loop

Offline Bert88 - 10/04/2010 10:59
Avatar van Bert88Lid Ik ben momenteel bezig met een stukje code in VB.NET, maar ik ben vastgeraakt bij een Do While loop.

In deze lus hoort een lijst uit een databank afgegaan te worden, en de waarden hiervan horen in de bijbehorende textbox te komen.

Code samengevat:

Do Until teller > antwoord

Textbox(teller).Text = reader("Type")

teller += 1
Loop

zoals vanzelfsprekend zal zijn, die Textbox(teller) werkt niet.
De namen van de textboxes die ik gebruik zijn elke keer Textbox1, Textbox2, Textbox3...
Dusja, iemand enig idee hoe ik mijn textboxes kan koppelen aan mijn teller?

Alvast bedankt

3 antwoorden

Gesponsorde links
Offline Abbas - 10/04/2010 13:54 (laatste wijziging 10/04/2010 13:54)
Avatar van Abbas Gouden medaille

Crew .NET
vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Dim i As Integer = 1
  2. Do Until i = 5
  3.     If Not Me.Controls.Find("TextBox" & i, True) Is Nothing Then
  4.         CType(Me.Controls.Find("TextBox" & i, True)(0), TextBox).Text = "WaardeVanDB"
  5.     End If
  6.     i = i + 1
  7. Loop
Bedankt door: Koen, Bert88
Offline Bert88 - 11/04/2010 14:27
Avatar van Bert88 Lid door die code ben ik al verder geraakt, Textbox1 wordt nu al geselecteerd, en de correcte waarde uit mn databank wordt weergegeven, maar t probleem is dat het stopt na 1 Textbox 

vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Do Until tel > 10
  2.  
  3. command.CommandText = "SELECT * FROM ANTWOORD WHERE Vraag_ID = '" & teller & "' AND Volgorde = '" & tel & "';"
  4.                 command.Connection = Group1
  5.                 reader = command.ExecuteReader
  6.  
  7.                 Do While reader.Read
  8.                     CType(Me.Controls.Find("TextBox" & tel, True)(0), TextBox).Text = reader("Omschrijving")
  9.  
  10.                 Loop
  11.                 tel = tel + 1
  12.             Loop


Enig idee waarom dat alles stopt na Textbox1?
Offline Mario - 12/04/2010 13:41
Avatar van Mario Crew algemeen ik heb het zonder een datalink en slechts met 3 textboxen een test gedaan en die code werkt.


vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Dim tel As Integer = 1
  2.  
  3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.  
  5.         Do Until tel > 3
  6.             CType(Me.Controls.Find("TextBox" & tel, True)(0), TextBox).Text = tel.ToString
  7.             tel += 1
  8.         Loop
  9.  
  10.     End Sub
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.185s