VB.NET 循环通过类似命名的表单控件

Question

好吧，我给你的大脑带来了麻烦。我正在将用 VB6 编写的程序转换为 Visual Studio 2010 VB.Net，但遇到了问题。我试图循环浏览表单上的 20 个表单元素，这些元素都有前缀“chkCustomerItems”，后面有数字 1 到 20。我将其与数据库查找一起使用，以便有一个数据库条目，然后将数据库项目名称应用到复选框的文本字段并打开可见性。这是我写的代码： ConnOpenClose()

Rs = New ADODB.Recordset
Sql = "SELECT * FROM CustomersItems;"
Rs.Open(Sql, Conn)

If Rs.EOF = False Then
    tempInteger = 1
    Rs.MoveFirst()
    Do
        tempString = "chkCustomerItems" & tempInteger.ToString
        Me.Controls(tempString).Text = Rs.Fields("Item").Value
        Me.Controls(tempString).Visible = True
        tempInteger = tempInteger + 1
        Rs.MoveNext()
        If tempInteger = 21 Then GoTo ExitLoop
    Loop Until Rs.EOF
ExitLoop:
End If

运行时，出现 NullReferenceException 错误。这基本上是我在 VB6 中使用的代码（对 .NET 基础结构进行了一些更改）。请帮助我找出我做错了什么，目前我必须对所有 20 个项目进行硬编码，虽然它可以工作，但它看起来或运行起来都不漂亮。

先感谢您

Answer 1

您正在使用 Text 属性，因此我假设这是文本框。
试试这个：

DirectCast(Controls(tempString), TextBox).Text = Rs.Fields("Item").Value

Answer 2

如果您的任何控件嵌入到任何容器控件（面板、选项卡等）中，您将无法通过 Controls 集合索引访问它们。

相反，您需要使用 Controls.Find 并将第二个参数 (searchAllChildren) 设置为 true（我还添加了一些额外的检查和 .Net 处理方法）：

 Do
    tempString = "chkCustomerItems" & tempInteger.ToString

    Dim aoControls As Control()
    aoControls = Me.Controls.Find(tempString, True)
    If aoControls IsNot Nothing AndAlso aoControls.Length <> 0 Then
       Dim oTextBox As TextBox

       oTextBox = TryCast(aoControls(0), TextBox)
       If oTextBox IsNot Nothing Then
          oTextBox.Text = Rs.Fields("Item").Value
          oTextBox.Visible = True
       End If
    End If

    tempInteger = tempInteger + 1
    Rs.MoveNext()
    If tempInteger = 21 Then 
       Exit Do
    End If
Loop Until Rs.EOF