VB.NET中设置DataGridView与DataRow单元格编辑前后格式的方法

核心原则 #

DataRow里要存原始数值类型（Decimal/Double），别存格式化后的字符串——格式控制全交给DataGridView的UI层处理，这样既能保证编辑时输入纯数字，编辑完成后自动显示符合要求的印尼盾格式。

具体实现代码 #

1. 基础格式设置（手动建列或绑定DataTable通用） #

手动创建列的情况

' 实例化价格列
Dim priceColumn As New DataGridViewTextBoxColumn()
priceColumn.Name = "Price"
priceColumn.HeaderText = "Harga"
' 设置印尼盾格式：带小数用Rp #,##0.00，不带小数用Rp #,##0
priceColumn.DefaultCellStyle.Format = "Rp #,##0.00"
' 指定印尼区域文化，确保千位/小数分隔符符合本地习惯
priceColumn.DefaultCellStyle.FormatProvider = New System.Globalization.CultureInfo("id-ID")
DataGridView1.Columns.Add(priceColumn)

绑定DataTable的情况

' 先确保DataTable的Price列是数值类型
Dim dt As New DataTable()
dt.Columns.Add("Price", GetType(Decimal))
' 绑定数据后设置列格式
DataGridView1.DataSource = dt
DataGridView1.Columns("Price").DefaultCellStyle.Format = "Rp #,##0.00"
DataGridView1.Columns("Price").DefaultCellStyle.FormatProvider = New System.Globalization.CultureInfo("id-ID")

2. 优化编辑体验（编辑时显示纯数字） #

默认情况下编辑单元格会显示原始数值，但如果之前有自定义格式干扰，可通过事件切换格式：

' 进入编辑模式时，把单元格内容转成纯数字显示
Private Sub DataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
    If DataGridView1.CurrentCell.ColumnIndex = DataGridView1.Columns("Price").Index Then
        Dim txtBox As TextBox = TryCast(e.Control, TextBox)
        If txtBox IsNot Nothing AndAlso DataGridView1.CurrentCell.Value IsNot DBNull.Value Then
            txtBox.Text = Convert.ToDecimal(DataGridView1.CurrentCell.Value).ToString(System.Globalization.CultureInfo.InvariantCulture)
        End If
    End If
End Sub

' 编辑结束后刷新单元格，重新应用格式
Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
    If e.ColumnIndex = DataGridView1.Columns("Price").Index Then
        DataGridView1.InvalidateCell(e.RowIndex, e.ColumnIndex)
    End If
End Sub

3. 动态切换两种格式（整数显示Rp1.000，小数显示Rp1.000,00） #

如果需要根据数值是否为整数自动切换格式，用CellFormatting事件处理：

Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
    If e.ColumnIndex = DataGridView1.Columns("Price").Index AndAlso e.Value IsNot DBNull.Value Then
        Dim price As Decimal = Convert.ToDecimal(e.Value)
        ' 判断是否为整数
        If price = Decimal.Truncate(price) Then
            e.Value = String.Format(New System.Globalization.CultureInfo("id-ID"), "Rp {0:N0}", price)
        Else
            e.Value = String.Format(New System.Globalization.CultureInfo("id-ID"), "Rp {0:N2}", price)
        End If
        e.FormattingApplied = True ' 标记已完成格式化，避免系统重复处理
    End If
End Sub

常见问题排查 #

1. 格式不生效？检查这几点：
   • DataGridView列的ValueType必须是数值类型（Decimal/Double），不能是字符串；
   • 确认FormatProvider设置了印尼文化（id-ID），保证千位分隔符.、小数分隔符,符合要求；
   • 如果用了CellFormatting事件，必须设置e.FormattingApplied = True，防止系统覆盖自定义格式。

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