-1

下面的代码效果很好:

dashboard1.Text = charArray(0)
dashboard2.Text = charArray(1)
dashboard3.Text = charArray(2)
dashboard4.Text = charArray(3)
dashboard5.Text = charArray(4)
dashboard6.Text = charArray(5)
dashboard7.Text = ""
dashboard8.Text = ""
dashboard9.Text = ""
dashboard10.Text = ""
If dashboardl >= 7 Then
    dashboard7.Text = charArray(6)
End If
If dashboardl >= 8 Then
    dashboard8.Text = charArray(7)
End If

If dashboardl >= 9 Then
    dashboard9.Text = charArray(8)
End If
If dashboardl >= 10 Then
    dashboard10.Text = charArray(9)
End If

但是,我想将它们转换为 FOR 循环,如下例所示,但出现错误。

For i = 1 To (dashboardl)
        ("dashboard" & CStr(i)) = charArray(i - 1)
Next i

非常感谢您的帮助。

4

2 回答 2

3

你可以试试这个...

    For i = 1 To dashboardl
        Dim txtBox As TextBox = FindControl("dashboard" & i)
        txtBox.Text = charArray(i - 1)
    Next i
于 2013-01-17T19:47:49.543 回答
0

哈,我没抓住重点。仍然不是在真正的计算机上,但试试这个......

For i = 1 To dashboardl
    Me.Controls("dashboard" & CStr(i)).Text = charArray(i - 1)
Next i
于 2013-01-17T19:55:00.383 回答