VB.NET父子ComboBox联动报错System.ArgumentNullException求助

我来帮你梳理下问题所在，你遇到的System.ArgumentNullException是因为创建DataRelation时引用了错误的列名，还有几处DisplayMember/ValueMember的配置问题，下面一步步给你修正：

核心错误分析 #

1. DataRelation列名错误：你在创建表关联时用了roomtype.RoomTypeID和Rooms.rRoomTypeID作为列名，但DataTable中的列名是不带表前缀的（比如GetRoomType返回的表列名是RoomTypeID，不是roomtype.RoomTypeID），导致找不到列，触发空引用异常。
2. DisplayMember/ValueMember配置错误：ComboBox的这两个属性应该直接用DataTable中的列名，不需要加表名前缀，比如roomtype.RoomTypeName应该改成RoomTypeName。
3. DataTable命名不匹配：GetRoomNumber方法中创建的DataTable命名为RoomNumber，但实际对应数据库的Rooms表，命名不一致会影响BindingSource的关联逻辑。
4. 冗余的SQL JOIN：GetRoomNumber的SQL里不需要JOIN RoomType，因为我们会通过DataSet的DataRelation来实现关联，JOIN只会增加不必要的数据。

修正后的完整代码 #

Private Sub SetupComboBoxes()
    Dim data As DataSet = Me.GetDataSet()
    
    ' 配置父BindingSource和ComboBox
    Me.BindingSource1.DataSource = data
    Me.BindingSource1.DataMember = "RoomType"
    Me.cmbRoomType.DisplayMember = "RoomTypeName"
    Me.cmbRoomType.ValueMember = "RoomTypeID"
    Me.cmbRoomType.DataSource = Me.BindingSource1
    
    ' 配置子BindingSource和ComboBox（通过DataRelation关联）
    Me.BindingSource2.DataSource = Me.BindingSource1
    Me.BindingSource2.DataMember = "Rooms"
    Me.cmbRoomNumber.DisplayMember = "RoomNumber"
    Me.cmbRoomNumber.ValueMember = "RoomID"
    Me.cmbRoomNumber.DataSource = Me.BindingSource2
End Sub

Private ConStr As String = "Data Source=dbNEAProject.db"

Private Function GetDataSet() As DataSet
    Dim data As New DataSet
    Dim parentTable As DataTable = Me.GetRoomType()
    Dim childTable As DataTable = Me.GetRoomNumber()
    
    data.Tables.Add(parentTable)
    data.Tables.Add(childTable)
    
    ' 创建正确的DataRelation：关联父表的RoomTypeID和子表的rRoomTypeID
    data.Relations.Add(
        "Rooms",
        parentTable.Columns("RoomTypeID"),
        childTable.Columns("rRoomTypeID"),
        True ' 设置为约束，确保关联的完整性
    )
    
    Return data
End Function

Private Function GetRoomType() As DataTable
    Dim sql As String = "Select RoomTypeName, RoomTypeID FROM RoomType"
    Dim table As New DataTable("RoomType") ' 表名对应数据库的RoomType
    
    Using con As New SQLiteConnection(ConStr)
        con.Open()
        Using da As New SQLiteDataAdapter(sql, con)
            da.Fill(table)
        End Using
    End Using
    
    Return table
End Function

Private Function GetRoomNumber() As DataTable
    ' 简化SQL，不需要JOIN RoomType，只需要Rooms表的必要字段
    Dim sql As String = "Select RoomNumber, RoomID, rRoomTypeID FROM Rooms"
    Dim table As New DataTable("Rooms") ' 表名对应数据库的Rooms，和DataRelation名称匹配
    
    Using con As New SQLiteConnection(ConStr)
        con.Open()
        Using da As New SQLiteDataAdapter(sql, con)
            da.Fill(table)
        End Using
    End Using
    
    Return table
End Function

关键修改点说明 #

• DataRelation列名：去掉了列名中的表前缀，直接使用DataTable中实际存在的列名RoomTypeID和rRoomTypeID。
• ComboBox属性：把DisplayMember和ValueMember改成了DataTable的原生列名，比如cmbRoomType.DisplayMember = "RoomTypeName"。
• DataTable命名：GetRoomNumber中的DataTable命名为Rooms，和数据库表名一致，也和DataRelation的名称匹配，确保BindingSource能正确找到关联。
• 简化SQL：移除了不必要的JOIN，让DataSet通过DataRelation来处理父子表关联，逻辑更清晰。

测试建议 #

运行前请确保：

1. 数据库连接字符串ConStr正确指向你的SQLite数据库文件。
2. BindingSource1和BindingSource2是已经在窗体设计器中添加的组件。
3. 两个ComboBox控件的名称cmbRoomType和cmbRoomNumber与代码中的一致。

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