Dim Col As TrueDBGrid80.Column
With TDBGrid1
Set Col = .Columns.Add(1)
Col.Visible = True
Col.Caption = "Unbound"
.HoldFields
.ReBind
End With
Us deixo l'enllaç relacionat a sota:
http://helpcentral.componentone.com/nethelp/truedbgrid8/default.htm?turl=creatingunboundcolumns.htm