VB.NET中DataGridView新增行时原有行ComboBox值隐藏问题及级联ComboBox实现方法咨询

问题1：新增行时原有ComboBox数据被隐藏 #

从你的代码来看，核心问题是你直接修改了整个DataGridViewComboBoxColumn的数据源，而非针对单个单元格的ComboBox控件。当新增行时，列的数据源会被覆盖，导致之前行的ComboBox数据全部丢失。

修复方案： #

不要修改整列的DataSource，而是针对当前行的DataGridViewComboBoxCell单独配置数据源。同时注意你的事件绑定写的是CellEnter，这会导致每次进入单元格都触发逻辑，建议改成CellValueChanged（仅当单元格值变化时触发）：

Private Sub dgsalorder_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgsalorder.CellValueChanged
    If e.RowIndex >= 0 AndAlso e.ColumnIndex = 1 Then ' 假设列1是触发变化的Style列
        Dim currentRow = dgsalorder.Rows(e.RowIndex)
        ' 跳过未提交的新行，避免无效逻辑
        If currentRow.IsNewRow Then Return

        Dim styleVal = currentRow.Cells(1).Value
        If Convert.ToBoolean(currentRow.Cells(0).Value) = True AndAlso styleVal > 0 Then
            Dim mysqlda As New SqlDataAdapter
            Dim mysqldt As New DataTable
            mysqlda = New SqlDataAdapter("select id,BrandID,ColorID,PackID,SizeMasterID,Pairpercarton,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20,s21,s22,s23,s24,s25,s26,s27,s28,s29,s30 from StyleMaster where Id='" & styleVal.ToString & "'", con)
            mysqlda.Fill(mysqldt)
            If mysqldt.Rows.Count > 0 Then
                Dim brand = mysqldt.Rows(0)(1).ToString()
                Dim color = mysqldt.Rows(0)(2).ToString()

                ' 单独配置当前行的品牌ComboBox单元格
                Dim brandCell = DirectCast(currentRow.Cells("lblbrands"), DataGridViewComboBoxCell)
                Dim strQuery As String = "select id,BrandName from BrandMaster where id='" + brand.ToString + "'"
                brandCell.DisplayMember = "_Value"
                brandCell.ValueMember = "_Key"
                brandCell.DataSource = getcombobox(strQuery)
                brandCell.Value = brand ' 设置默认选中值

                ' 单独配置当前行的颜色ComboBox单元格
                Dim colorCell = DirectCast(currentRow.Cells("lblcolors"), DataGridViewComboBoxCell)
                Dim strQuery1 As String = "select id,ColorCode from ColorMaster where id='" + color.ToString + "'"
                colorCell.DisplayMember = "_Value"
                colorCell.ValueMember = "_Key"
                colorCell.DataSource = getcombobox(strQuery1)
                colorCell.Value = color ' 设置默认选中值
            End If
        End If
    End If
End Sub

关键说明： #

• 针对单个单元格设置数据源，确保每一行的ComboBox拥有独立数据源，新增行不会干扰原有行的数据。
• 加入IsNewRow判断，避免对未提交的临时新行执行无效逻辑。

问题2：实现DataGridView ComboBox的级联功能 #

级联的核心逻辑是：父ComboBox（比如Style列）的值变化时，动态更新子ComboBox（比如Brand、Color列）的数据源。下面是更通用的级联实现方案：

完整级联步骤： #

1. 确保父列和子列都是DataGridViewComboBoxColumn类型（可在设计器或代码中定义）。
2. 在父列的CellValueChanged事件中，根据父值查询子列的数据源，再为当前行的子ComboBox单元格配置数据。

优化后的级联代码示例（Style→Brand→Color）： #

' Style列值变化时，更新Brand列
Private Sub dgsalorder_StyleChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgsalorder.CellValueChanged
    If e.RowIndex < 0 OrElse e.ColumnIndex <> dgsalorder.Columns("StyleColumn").Index Then Return
    Dim currentRow = dgsalorder.Rows(e.RowIndex)
    If currentRow.IsNewRow Then Return

    Dim styleId = currentRow.Cells("StyleColumn").Value.ToString()
    ' 查询该Style对应的Brand列表（建议改用参数化查询避免SQL注入）
    Dim brandDs = getcombobox($"select id,BrandName from BrandMaster where BrandID in (select BrandID from StyleMaster where Id='{styleId}')")
    Dim brandCell = DirectCast(currentRow.Cells("lblbrands"), DataGridViewComboBoxCell)
    brandCell.DisplayMember = "_Value"
    brandCell.ValueMember = "_Key"
    brandCell.DataSource = brandDs
    ' 自动选中第一个选项（可选）
    If brandDs.Count > 0 Then brandCell.Value = brandDs(0)._Key
End Sub

' Brand列值变化时，更新Color列
Private Sub dgsalorder_BrandChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgsalorder.CellValueChanged
    If e.RowIndex < 0 OrElse e.ColumnIndex <> dgsalorder.Columns("lblbrands").Index Then Return
    Dim currentRow = dgsalorder.Rows(e.RowIndex)
    If currentRow.IsNewRow Then Return

    Dim brandId = currentRow.Cells("lblbrands").Value.ToString()
    ' 查询该Brand对应的Color列表
    Dim colorDs = getcombobox($"select id,ColorCode from ColorMaster where BrandID='{brandId}'")
    Dim colorCell = DirectCast(currentRow.Cells("lblcolors"), DataGridViewComboBoxCell)
    colorCell.DisplayMember = "_Value"
    colorCell.ValueMember = "_Key"
    colorCell.DataSource = colorDs
    If colorDs.Count > 0 Then colorCell.Value = colorDs(0)._Key
End Sub

额外注意事项： #

• 避免SQL注入风险：你的代码中直接拼接SQL字符串，存在安全隐患，建议改用参数化查询：

  mysqlda = New SqlDataAdapter("select id,BrandName from BrandMaster where id=@BrandId", con)
  mysqlda.SelectCommand.Parameters.AddWithValue("@BrandId", brand)
  

• 新行初始化：如果需要为新增行设置默认ComboBox数据源，可以在DataGridView.DefaultValuesNeeded事件中处理。

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