-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 に答える