Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
Dim h As Integer = 0 Dim curbill As String = DirectCast(sender, Control).Name Dim billnumber As String = "" Dim curtextboxname As String Dim curtextbox As TextBox Dim nexttextboxname As String Dim nexttextbox As TextBox For Each ch As Char In curbill If IsNumeric(ch) = True Then billnumber += ch End If Next h = Convert.ToInt16(billnumber) For z As Int16 = h To 12 curtextboxname = "txtbcred" & h curtextbox.Name = curtextboxname nexttextboxname = "txtbcred" & h + 1 nexttextbox.Name = nexttextboxname If InStr(curtextboxname, 12) = 0 Then curtextbox.Text = nexttextbox.Text Else curtextbox.Text = "" End If Next
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!