VB.NET使用变量引用TextBox控件时出现NullReferenceException报错求助

核心原因 #

System.NullReferenceException说明Me.Controls("myfield" & xx)返回了Nothing，大概率是控件不在窗体的直接Controls集合中，或者控件名称拼接错误。

具体解决方法 #

1. 先确认控件名称和变量xx的正确性 #

• 检查TextBox的Name属性是不是确实以myfield开头（比如myfield1、myfield2），注意名称完全匹配（VB.NET默认不区分大小写，但尽量保持一致）。
• 输出拼接后的控件名，比如用Debug.WriteLine("myfield" & xx)，确认是否和目标TextBox的Name完全一致，避免xx是无效值（比如空字符串、超出范围的数字）。

2. 递归查找容器内的控件 #

如果TextBox放在Panel、GroupBox、TabPage这类容器控件里，Me.Controls无法直接找到，需要递归遍历所有控件：

Private Function FindControlRecursive(ByVal container As Control, ByVal controlName As String) As Control
    For Each ctrl As Control In container.Controls
        If ctrl.Name = controlName Then
            Return ctrl
        End If
        Dim foundCtrl As Control = FindControlRecursive(ctrl, controlName)
        If foundCtrl IsNot Nothing Then
            Return foundCtrl
        End If
    Next
    Return Nothing
End Function

使用方式：

Dim targetTextBox As TextBox = CType(FindControlRecursive(Me, "myfield" & xx), TextBox)
If targetTextBox IsNot Nothing Then
    targetTextBox.Text = "some text"
Else
    Debug.WriteLine("未找到控件：myfield" & xx)
End If

3. 直接使用控件数组（更稳妥） #

如果是一组命名规律的TextBox，提前把它们放到数组里，避免查找出错：

' 在窗体加载时初始化数组
Dim myTextBoxes() As TextBox = {myfield1, myfield2, myfield3} ' 把所有相关TextBox加入数组

' 通过索引访问（假设xx是数字，比如1对应索引0，根据实际情况调整）
Dim index As Integer = CInt(xx) - 1
If index >= 0 And index < myTextBoxes.Length Then
    myTextBoxes(index).Text = "some text"
Else
    Debug.WriteLine("索引超出范围")
End If

4. 检查控件的访问权限 #

确保TextBox的Modifiers属性设置为Public或Friend，如果是在子窗体或用户控件中，避免因权限问题导致无法访问控件。

内容的提问来源于stack exchange，提问作者Clamont