13. september 2010 - 23:05Der er
5 kommentarer og 1 løsning
For next
Hej
Følgende programmering skal slette indholdet i textbox25 til textbox 144 men jeg har lidt problemer med at gøre det rigtigt :-/ Jeg kunne selvfølgelig skrive:
...men det virker sgu lidt simpelt. Hvad er der galt med nedenstående?
Dim var As Integer Dim startVal As Integer Dim endVal As Integer startVal = 25 endVal = 144 For var = startVal To endVal (FrmPatientflade.textbox) & Var & (.text) = "" Next var
For Each c As Control In Controls If TypeOf c Is TextBox Then If c.Name.StartsWith("textbox") Then Dim n As Integer = Integer.Parse(c.Name.Substring(7)) If(n >= startval And n <= endval) Then CType(c, TextBox).Text = "" End If End If End If Next
Jeg skrev som du foreslog men textboxene bliver desværre ikke tømt!
Dim var As Integer Dim startVal As Integer Dim endVal As Integer startVal = 25 endVal = 144
For Each c As Control In FrmPatientflade.Controls If TypeOf c Is TextBox Then If c.Name.StartsWith("Textbox") Then Dim n As Integer = Integer.Parse(c.Name.Substring(7)) If (n >= startVal And n <= endVal) Then CType(c, TextBox).Text = "" End If End If End If Next
Du havde ret. Sådan her fungerer det :-). Svar lige så du kan får point og tusinde tak for hjælpen :-)
Dim var As Integer Dim startVal As Integer Dim endVal As Integer startVal = 25 endVal = 192
For Each c As Control In FrmPatientflade.Controls If TypeOf c Is TextBox Then If c.Name.StartsWith("TextBox") Then Dim n As Integer = Integer.Parse(c.Name.Substring(7)) If (n >= startVal And n <= endVal) Then CType(c, TextBox).Text = "" End If End If End If Next c
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.