TDBGRID - ADICIONAR COLUNA VIA CODIGO
Olá Galera,
Eu usava o DataGrid e tinha uma rotina Geral para pequisa que ia adicionando colunas conforme o numero de campos da SQL.
Agora to tentando fazer o mesmo para o TDBGrid e tá dando:
"Object doesn't support this property or method"
O código que eu usava era esse:
O TDB até tem essa função tb, mas na hora de executar...
Desde já, Obrigado
Eu usava o DataGrid e tinha uma rotina Geral para pequisa que ia adicionando colunas conforme o numero de campos da SQL.
Agora to tentando fazer o mesmo para o TDBGrid e tá dando:
"Object doesn't support this property or method"
O código que eu usava era esse:
DataGrid.Columns.Add (intColuna)O TDB até tem essa função tb, mas na hora de executar...
Desde já, Obrigado
Alguém?
Peguei isto do ajuda do tdbgrid:
' Create a new Column 0
Dim C As TrueDBGrid60.Column
Set C = TDBGrid1.Columns.Add(0)
' Initialize the new Column 0
With C
.Visible = True ' Make it visible
.DataField = "LAST" ' Set the column's database field
.Caption = "Last Name" ' Set the column's caption
End With
' Make Column 0 as wide as Column 1
C.Width = TDBGrid1.Columns(1).Width
Basta voce clicar no tdbgrid, teclar F1 e digitar no topico de ajuda "add". Depois escolha na lista "Adding and removing columns".
' Create a new Column 0
Dim C As TrueDBGrid60.Column
Set C = TDBGrid1.Columns.Add(0)
' Initialize the new Column 0
With C
.Visible = True ' Make it visible
.DataField = "LAST" ' Set the column's database field
.Caption = "Last Name" ' Set the column's caption
End With
' Make Column 0 as wide as Column 1
C.Width = TDBGrid1.Columns(1).Width
Basta voce clicar no tdbgrid, teclar F1 e digitar no topico de ajuda "add". Depois escolha na lista "Adding and removing columns".
Certinho, Muito Obrigado.
Tópico encerrado , respostas não são mais permitidas