绑定DataTable后无法修改列类型，银行每日余额分隔实现受阻

需求与现状 #

• 目标：开发具备每日余额分隔功能的银行余额系统
• 已实现：可从数据库提取目标数据、汇总余额并填充至DataGridView
• 待实现：在每日数据过渡处添加分隔行，展示当日余额

遇到的问题 #

• 尝试向decimal类型的Valor列插入字符串“Saldo: ”时，触发类型不匹配错误
• 尝试修改已填充数据的Valor列数据类型，系统提示无法修改已填充列的类型

相关代码 #

Dim dt As New DataTable()
Using adapter As New SqlDataAdapter("SELECT * FROM TAB_Movimentos WHERE Banco = @Banco ORDER BY Data ASC, Ordem ASC, Valor DESC, Histórico ASC", New SqlConnection(MontaStringConexaoSQLServer()))
    adapter.SelectCommand.Parameters.Add("@Banco", SqlDbType.Int).Value = cbBanco.Value
    adapter.Fill(dt)
End Using
tabHistorico.DataSource = dt.DefaultView
linhasaldo as integer = 5
Dim nlinha As DataRow = dt.NewRow
nlinha("Valor") = "Saldo: "
nlinha("Saldo") = saldo
dt.Rows.InsertAt(nlinha, linhasaldo)

可行解决方案 #

方案一：创建新DataTable适配字符串类型列 #

既然不能修改原有已填充DataTable的列类型，我们可以克隆一个新表，把Valor列改成字符串类型，再导入原有数据，最后插入分隔行：

' 获取原始数据
Dim dtOriginal As New DataTable()
Using adapter As New SqlDataAdapter("SELECT * FROM TAB_Movimentos WHERE Banco = @Banco ORDER BY Data ASC, Ordem ASC, Valor DESC, Histórico ASC", New SqlConnection(MontaStringConexaoSQLServer()))
    adapter.SelectCommand.Parameters.Add("@Banco", SqlDbType.Int).Value = cbBanco.Value
    adapter.Fill(dtOriginal)
End Using

' 克隆表结构并修改Valor列为字符串类型
Dim dtNew As DataTable = dtOriginal.Clone()
dtNew.Columns("Valor").DataType = GetType(String)

' 导入原始数据，将decimal类型的Valor转换为格式化字符串
For Each row As DataRow In dtOriginal.Rows
    Dim newRow As DataRow = dtNew.NewRow()
    For Each col As DataColumn In dtOriginal.Columns
        If col.ColumnName = "Valor" Then
            ' 格式化金额为两位小数，可根据需求调整格式
            newRow(col) = If(row(col) Is DBNull.Value, "", CType(row(col), Decimal).ToString("N2"))
        Else
            newRow(col) = row(col)
        End If
    Next
    dtNew.Rows.Add(newRow)
Next

' 插入分隔行
Dim linhaSaldo As Integer = 5
Dim novaLinha As DataRow = dtNew.NewRow()
novaLinha("Valor") = "Saldo: "
novaLinha("Saldo") = saldo
dtNew.Rows.InsertAt(novaLinha, linhaSaldo)

' 绑定到DataGridView
tabHistorico.DataSource = dtNew.DefaultView

方案二：通过DataGridView事件直接绘制分隔行（不修改数据源） #

如果不想改动数据源结构，我们可以在界面层做文章，利用DataGridView的事件来显示分隔行内容：

' 先绑定原始数据源（保持Valor列的decimal类型不变）
Dim dt As New DataTable()
Using adapter As New SqlDataAdapter("SELECT * FROM TAB_Movimentos WHERE Banco = @Banco ORDER BY Data ASC, Ordem ASC, Valor DESC, Histórico ASC", New SqlConnection(MontaStringConexaoSQLServer()))
    adapter.SelectCommand.Parameters.Add("@Banco", SqlDbType.Int).Value = cbBanco.Value
    adapter.Fill(dt)
End Using
tabHistorico.DataSource = dt.DefaultView

' 处理RowPrePaint事件，自定义分隔行显示
Private Sub tabHistorico_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles tabHistorico.RowPrePaint
    ' 这里可以替换成根据日期判断的逻辑，动态确定分隔行位置
    If e.RowIndex = linhaSaldo Then
        ' 设置分隔行样式，比如灰色背景+加粗字体
        tabHistorico.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LightGray
        tabHistorico.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(tabHistorico.Font, FontStyle.Bold)
        
        ' 设置Valor列显示"Saldo: "，Saldo列显示余额
        tabHistorico.Rows(e.RowIndex).Cells("Valor").Value = "Saldo: "
        tabHistorico.Rows(e.RowIndex).Cells("Saldo").Value = saldo
    End If
End Sub

这两个方案都能避开类型冲突的问题，方案一适合需要在数据源层面保留分隔行的场景，方案二更适合只在界面展示分隔效果的需求。

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