ALINHAR TEXTO DO DBGRID
GALERA BOA TARDE.
Gostaria de saber como eu faço para alinhar um texto no dbgrid, tipo centralizar o texto nas coluna. quando eu clico com o botão direito do mouse em cima do grid e escolho a propriedade eu vou em columns ai la só aparece columns 0 e columns 1.
para eu preencher o grid com coisa do banco eu faço o seguinte:
Dim sql As String
Set rstransferencia = New ADODB.Recordset
connectsql
'inicializar o recordset que será utilizado para alimentar o grid
sql = "select * from NovoPrVenda_F06 order by data "
rstransferencia.Open sql, con, adOpenDynamic, adLockOptimistic
'Habilitar as operações de insert, delete e update
dbbusca.AllowAddNew = True
dbbusca.AllowUpdate = True
dbbusca.AllowDelete = True
dbbusca.ClearFields
'Colocar o recordset como fonte de dados do grid
Set dbbusca.DataSource = rstransferencia
Set rstransferencia.ActiveConnection = Nothing
'Atualiar o recordset
dbbusca.Refresh
'ajustar a largura das colunas
dbbusca.Columns(0).Width = 900
dbbusca.Columns(1).Width = 1150
dbbusca.Columns(2).Width = 900
dbbusca.Columns(3).Width = 1000
dbbusca.Columns(4).Width = 900
dbbusca.Columns(5).Width = 900
dbbusca.Columns(6).Width = 900
dbbusca.Columns(7).Width = 900
e como eu faço para formatar as colunas e colocar nome nelas.
Gostaria de saber como eu faço para alinhar um texto no dbgrid, tipo centralizar o texto nas coluna. quando eu clico com o botão direito do mouse em cima do grid e escolho a propriedade eu vou em columns ai la só aparece columns 0 e columns 1.
para eu preencher o grid com coisa do banco eu faço o seguinte:
Dim sql As String
Set rstransferencia = New ADODB.Recordset
connectsql
'inicializar o recordset que será utilizado para alimentar o grid
sql = "select * from NovoPrVenda_F06 order by data "
rstransferencia.Open sql, con, adOpenDynamic, adLockOptimistic
'Habilitar as operações de insert, delete e update
dbbusca.AllowAddNew = True
dbbusca.AllowUpdate = True
dbbusca.AllowDelete = True
dbbusca.ClearFields
'Colocar o recordset como fonte de dados do grid
Set dbbusca.DataSource = rstransferencia
Set rstransferencia.ActiveConnection = Nothing
'Atualiar o recordset
dbbusca.Refresh
'ajustar a largura das colunas
dbbusca.Columns(0).Width = 900
dbbusca.Columns(1).Width = 1150
dbbusca.Columns(2).Width = 900
dbbusca.Columns(3).Width = 1000
dbbusca.Columns(4).Width = 900
dbbusca.Columns(5).Width = 900
dbbusca.Columns(6).Width = 900
dbbusca.Columns(7).Width = 900
e como eu faço para formatar as colunas e colocar nome nelas.
dbbusca.Col.text = "Nome"
dbbusca.FixedCols = "Nome"
creio eu que é o fixedcols
Abraços
dbbusca.FixedCols = "Nome"
creio eu que é o fixedcols
Abraços
não deu certo não
Amigo faça o seguinte
Para alinhar via codigo
dbbusca.Columns(0).Alignment = Center 'Onde qr alinhar
Via VB botão direito do DbBusca e ao invés de ir em Columns vai em Layout vai ter a opção aligment
Para colocar o Titulo em temo de execução
dbbusca.Columns(0).Caption = "Orlando"
Espero ter ajudado
Para alinhar via codigo
dbbusca.Columns(0).Alignment = Center 'Onde qr alinhar
Via VB botão direito do DbBusca e ao invés de ir em Columns vai em Layout vai ter a opção aligment
Para colocar o Titulo em temo de execução
dbbusca.Columns(0).Caption = "Orlando"
Espero ter ajudado
quando eu clico com o botão direito do mouse e escolho a opção layout só aparece 2colunas a columns(0) e columns(1).
eu tenho 8 colunas como faço para colocar elas.
eu tenho 8 colunas como faço para colocar elas.
Vc tem q colocar via codigo porque sua conexão é através de código.
COmo vc fez na largura da pagina
dbbusca.Columns(0).Caption = "Codigo"
dbbusca.Columns(1).Caption = "Data"
dbbusca.Columns(2).Caption = "Preço"
dbbusca.Columns(3).Caption = "Atualização"
dbbusca.Columns(4).Caption = "seila"
dbbusca.Columns(5).Caption = "Tbm nao sei"
dbbusca.Columns(6).Caption = "Outra q nao sei"
dbbusca.Columns(7).Caption = "Codigo social."
COmo vc fez na largura da pagina
dbbusca.Columns(0).Caption = "Codigo"
dbbusca.Columns(1).Caption = "Data"
dbbusca.Columns(2).Caption = "Preço"
dbbusca.Columns(3).Caption = "Atualização"
dbbusca.Columns(4).Caption = "seila"
dbbusca.Columns(5).Caption = "Tbm nao sei"
dbbusca.Columns(6).Caption = "Outra q nao sei"
dbbusca.Columns(7).Caption = "Codigo social."
ë deve ser via codigo pq o grid só ira ser feito atraves de um comando certo, só aparece a coluna 0 e 1 pq é o padrao.
Tópico encerrado , respostas não são mais permitidas