VB.NET中无需逐表写If语句，按ComboBox1选的Access表填充ComboBox2

现有代码靠一堆If判断硬编码表名和列索引，新增工具表就得改代码，完全没法自动适配。下面是重构后的通用实现，不用改代码就能识别新增的表：

第一步：优化ComboBox1的表名加载逻辑 #

保留自动读取数据库表名的逻辑，同时过滤掉Access的系统表，避免无关表出现在下拉框里：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 自动加载所有用户工具表到ComboBox1
    con.Open()
    Dim schemaTable As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
    For Each dr As DataRow In schemaTable.Rows
        Dim tableName As String = dr("TABLE_NAME").ToString()
        ' 跳过Access系统表（以~或MSys开头的都是系统表）
        If Not tableName.StartsWith("~") AndAlso Not tableName.StartsWith("MSys") Then
            Combobox1.Items.Add(tableName)
        End If
    Next
    con.Close() ' 补上原来漏写的关闭连接，防止连接泄漏
End Sub

第二步：重构ComboBox1选择事件，动态适配任意表 #

核心就是直接用选中的表名拼SQL，按列名读取描述和尺寸（别用列索引，不然表结构一变就崩），同时用Using自动管理资源，避免连接泄漏：

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Combobox1.SelectedIndexChanged
    ' 先清空ComboBox2
    Combobox2.Items.Clear()
    Combobox2.Text = ""

    ' 没选中表就直接返回
    If Combobox1.SelectedItem Is Nothing Then Return

    Dim selectedTable As String = Combobox1.SelectedItem.ToString()
    ' Access里数字开头或带特殊字符的表名，必须用方括号包起来
    Dim safeTableName As String = $"[{selectedTable}]"

    ' 用Using自动释放连接、命令、阅读器资源，不用手动Close
    Using dbCon As New OleDbConnection("你的数据库连接字符串") ' 建议把连接字符串抽成常量放配置里
        dbCon.Open()
        ' 这里的列名要和你所有工具表的描述、尺寸列名对应，比如改成你实际的列名
        Dim sql As String = $"SELECT ToolDescription, ToolSize FROM {safeTableName}"
        Using cmd As New OleDbCommand(sql, dbCon)
            Using reader As OleDbDataReader = cmd.ExecuteReader()
                ' 逐行读取，把描述和尺寸组合起来显示
                While reader.Read()
                    ' 处理空值，避免数据库空值导致报错
                    Dim desc As String = If(reader.IsDBNull(0), "", reader.GetString(0))
                    Dim size As String = If(reader.IsDBNull(1), "", reader.GetString(1))
                    Combobox2.Items.Add($"{desc} - {size}")
                End While
            End Using
        End Using
    End Using
End Sub

关键优化点 #

1. 无需硬编码表名：不管新增多少工具表，只要在数据库里建表，ComboBox1就会自动加载，不用改代码
2. 用列名代替索引：原来的代码有的表取索引0，有的取1，换个表就崩，用列名读取就不会有这问题
3. 自动管理资源：Using语句会自动关闭连接、释放资源，不用手动写Close，避免连接泄漏
4. 空值处理：数据库里的空值会转成空字符串，不会抛出异常
5. 系统表过滤：下拉框里只会显示你自己建的工具表，不会出现Access自带的系统表

注意事项 #

• 确保所有工具表的描述和尺寸列名完全一致，比如都叫ToolDescription和ToolSize，如果列名不一样，得改SQL里的列名
• 连接字符串别硬编码在代码里，建议放在app.config配置文件里，方便修改
• 如果表名有空格、数字开头这类特殊情况，必须用方括号[]包裹，不然会报SQL语法错误

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