通过ComboBox修改图片背景色并保存至DataGridView问题求助

首先咱们得揪出问题根源：你现在只是修改了图片控件的BackColor，但没把这个颜色值同步到绑定的数据源（HistoryDataSet.Machine_History）里；就算存进去了，DataGridView也没根据存储的颜色值自动渲染背景色。下面一步步来搞定：

1. 给数据源加个存颜色的字段 #

首先你的Machine_History表得有个专门存颜色的字段，比如新增BackGroundColor字段——建议用varchar(50)存颜色名称（比如"Red"、"LightBlue"），或者用int存ARGB数值。如果用DataSet设计器，记得同步更新Machine_HistoryTableAdapter和HistoryDataSet，保证字段能对应上。

2. 让ComboBox选色同步到图片和数据源 #

用户在ComboBox选颜色时，既要改图片背景色，也要把颜色值写到数据源的当前行里：

' 假设你的ComboBox叫cboColor，图片控件叫PictureBox1
Private Sub cboColor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboColor.SelectedIndexChanged
    ' 获取选中的颜色
    Dim selectedColor As Color = Color.FromName(cboColor.Text)
    ' 修改图片背景色
    PictureBox1.BackColor = selectedColor
    
    ' 同步到绑定数据源的当前行
    If MachineHistoryBindingSource.Current IsNot Nothing Then
        ' 假设字段名叫BackGroundColor，存颜色名称
        DirectCast(MachineHistoryBindingSource.Current, DataRowView)("BackGroundColor") = cboColor.Text
        ' 如果是存ARGB值，就换成下面这句：
        ' DirectCast(MachineHistoryBindingSource.Current, DataRowView)("BackGroundColor") = selectedColor.ToArgb().ToString()
    End If
End Sub

3. 修正保存代码的错误处理 #

你原来的保存代码里，Exit Sub放在错误处理前面会导致不管有没有错误都直接退出，根本没执行完保存逻辑，得调整成这样：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        ' 把所有控件的修改提交到数据源
        MachineHistoryBindingSource.EndEdit()
        ' 更新到数据库
        Machine_HistoryTableAdapter.Update(HistoryDataSet.Machine_History)
        MessageBox.Show("OK Complete")
        ' 保存后刷新DataGridView
        DataGridView1.Refresh()
        MachineHistoryBindingSource.ResetBindings(False)
    Catch ex As Exception
        MessageBox.Show($"保存失败：{ex.Message}")
    End Try
End Sub

4. 让DataGridView根据存储值渲染背景色 #

保存后得让DataGridView自动根据存的颜色值改背景色，用CellFormatting事件实现：

Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
    ' 假设图片列的列名叫"PictureColumn"
    If e.ColumnIndex = DataGridView1.Columns("PictureColumn").Index AndAlso e.Value IsNot Nothing Then
        ' 获取行里存的颜色值
        Dim colorStr As String = DirectCast(DataGridView1.Rows(e.RowIndex).Cells("BackGroundColor").Value, String)
        If Not String.IsNullOrEmpty(colorStr) Then
            ' 设置单元格背景色（如果是单元格里嵌了图片控件，也可以直接改控件的BackColor）
            e.CellStyle.BackColor = Color.FromName(colorStr)
            ' 如果存的是ARGB值，就换成下面这句：
            ' e.CellStyle.BackColor = Color.FromArgb(Integer.Parse(colorStr))
        End If
    End If
End Sub

这样改完之后，选色、保存、DataGridView显示的背景色就能同步啦。

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