VB.NET中如何实现DataGridView与报表的数字格式输出一致？

问题描述 #

在VB.NET开发中，需要让DataGridView和报表中的数字格式化结果完全统一。当前遇到的问题是：当DataGridView列对齐方式设为MiddleCenter时，报表的数字格式不生效；改成MiddleRight后报表格式才正常，但这破坏了DataGridView的居中对齐需求，需要寻找无需改动界面对齐样式的解决方案。

期望的统一输出效果：

当前状态：

• 预览按钮点击前的DataGridView状态：
• 预览按钮点击后的DataGridView状态：
• 报表预览结果：
• 设置N2格式后的报表结果：

相关代码 #

Public Class Form1
    Private Sub fillDataGridView1()
        Dim list As New List(Of Data)()
        list.Add(New Data With {
          .Prop1 = 1,
          .Prop2 = 120000
      })
        list.Add(New Data With {
          .Prop1 = 2,
          .Prop2 = 130000
      })
        list.Add(New Data With {
          .Prop1 = 3,
          .Prop2 = 22.5
      })

        DataGridView1.Columns.Add("Prop1", "Prop1")
        DataGridView1.Columns("Prop1").DataPropertyName = "Prop1"
        DataGridView1.Columns.Add("Prop2", "Prop2")
        DataGridView1.Columns("Prop2").DataPropertyName = "Prop2"
        DataGridView1.Columns("Prop2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns("Prop2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.Columns("Prop2").DefaultCellStyle.Format = "N2"
        DataGridView1.DataSource = list
    End Sub

    Private Class Data
        Public Property Prop1() As Integer
        Public Property Prop2() As Double
    End Class

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        KtReport1.Clear()
        For Each c As DataGridViewColumn In DataGridView1.Columns
            If c.ValueType Is GetType(Double) Then
                c.DefaultCellStyle.Format = "N2"
                c.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            End If
        Next c
        KtReport1.AddDatagridView(DataGridView1)
        KtReport1.ShowPrintPreviewDialog()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        fillDataGridView1()
    End Sub
End Class

解决方案 #

方案1：直接配置报表列格式（推荐） #

绕过DataGridView样式传递，直接给报表列设置格式，不影响界面显示：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    KtReport1.Clear()
    KtReport1.AddDatagridView(DataGridView1)
    
    ' 为报表中的数值列设置格式
    For Each reportCol In KtReport1.Columns
        Dim dgvCol = DataGridView1.Columns(reportCol.DataField)
        If dgvCol IsNot Nothing AndAlso dgvCol.ValueType Is GetType(Double) Then
            reportCol.FormatString = "N2"
            ' 可选：设置报表列右对齐，符合数值展示习惯
            reportCol.Alignment = ContentAlignment.MiddleRight
        End If
    Next
    
    KtReport1.ShowPrintPreviewDialog()
End Sub

方案2：临时修改DataGridView样式后恢复 #

若必须依赖DataGridView传递样式，可临时修改对齐方式，生成报表后立即恢复：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    KtReport1.Clear()
    
    ' 保存原对齐样式
    Dim originalAlignments As New Dictionary(Of DataGridViewColumn, DataGridViewContentAlignment)
    For Each c As DataGridViewColumn In DataGridView1.Columns
        If c.ValueType Is GetType(Double) Then
            originalAlignments(c) = c.DefaultCellStyle.Alignment
            c.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        End If
    Next
    
    KtReport1.AddDatagridView(DataGridView1)
    KtReport1.ShowPrintPreviewDialog()
    
    ' 恢复原界面对齐样式
    For Each pair In originalAlignments
        pair.Key.DefaultCellStyle.Alignment = pair.Value
    Next
End Sub

说明 #

• 方案1无需改动DataGridView界面状态，直接操作报表逻辑，更稳定
• 方案2适合必须通过DataGridView传递样式的场景，确保用户看到的界面始终保持居中对齐

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