VB.NET中TabControl多选项卡ComboBox填充失败问题求助

你的代码核心问题出在获取ComboBox的方式上：当你遍历TabPage.Controls找到目标ComboBox后，错误地通过Me.Controls(temp_ctrl.Name)去调取控件——但这个ComboBox是属于TabPage的子控件，并不在窗体的直接Controls集合里，所以temp_cmb会被赋值为Nothing，自然无法完成数据填充。

修正后的代码 #

For Each tab_page As Control In Me.TabControl1.TabPages
    For Each temp_ctrl As Control In tab_page.Controls
        ' 用TypeOf做类型判断，比字符串匹配更可靠高效
        If TypeOf temp_ctrl Is ComboBox Then
            ' 直接将当前遍历到的控件转换为ComboBox即可
            Dim temp_cmb As ComboBox = CType(temp_ctrl, ComboBox)
            For Each r As DataRow In dtab_KPI.Rows
                temp_cmb.Items.Add(r(0))
            Next
        End If
    Next
Next

额外优化建议 #

如果你的TabPage里还有嵌套容器（比如Panel、GroupBox），当前代码无法遍历到容器内部的ComboBox，这时可以写一个递归方法来覆盖所有层级的控件：

Private Sub FillAllComboBoxes(parentCtrl As Control)
    For Each childCtrl As Control In parentCtrl.Controls
        If TypeOf childCtrl Is ComboBox Then
            Dim cmb As ComboBox = CType(childCtrl, ComboBox)
            For Each r As DataRow In dtab_KPI.Rows
                cmb.Items.Add(r(0))
            Next
        End If
        ' 递归处理子容器内的控件
        If childCtrl.HasChildren Then
            FillAllComboBoxes(childCtrl)
        End If
    Next
End Sub

' 调用方式
For Each tab_page As Control In Me.TabControl1.TabPages
    FillAllComboBoxes(tab_page)
Next

这样不管ComboBox在TabPage的哪个层级里，都能被正确找到并填充数据了。

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