Public Class frmTable
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
    Dim withevents dgv As New DataGridView With {.Parent = Me}
 
    Private Sub frmTable_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'typkonforme Spalten in Datenquelle einrichten 
        With dt.Columns
            .Add("ID", GetType(Integer))
            .Add("Datum", GetType(Date))
            .Add("Zweck", GetType(String))
            .Add("Einnahme", GetType(Decimal))
            .Add("Ausgabe", GetType(Decimal))
            .Add("Saldo", GetType(Decimal))
        End With
 
        'automatisch berechnete Spalte
        dt.Columns("Saldo").Expression = "Einnahme - Ausgabe"
 
        'Datenbindung
        bs.DataSource = dt
        dgv.DataSource = bs
 
        'Formatierung der angezeigten Beträge
        With dgv
            .Columns("Einnahme").DefaultCellStyle.Format = "0.00"
            .Columns("Ausgabe").DefaultCellStyle.Format = "0.00"
            .Columns("Saldo").DefaultCellStyle.Format = "0.00"
        End With
 
    End Sub
End Class