DE GRID PARA MSFLEXGRID!!

MESTRE 16/01/2014 10:22:21
#433137
Bom agradeço ao MARCELO TREEZE por ter ajudado no Drag and Drop do FlexGrid que funcionou perfeitamente.. só que não sei como carregar os dados do Grid normal no MSFlexGrid.. renomiei o FlexGrid para o meu grid normal que se chama grdPesq e ele apresenta o erro:

Metod or data member not found

A estrutura do meu grid está abaixo, na verdade é uma Procedure para configurar o grid..
[th][/th]
grdPesq
Private Sub procConfigGrd()
Set grdpesq.DataSource = Tb
grdpesq.Columns(0).Width = 1650
grdpesq.Columns(0).Caption = [Ô]Código Produto[Ô]
grdpesq.Columns(1).Width = 1500
grdpesq.Columns(1).Caption = [Ô]Código Serviço[Ô]
grdpesq.Columns(2).Width = 1500
grdpesq.Columns(2).Caption = [Ô]Detalhe[Ô]
grdpesq.Columns(3).Width = 1500
grdpesq.Columns(3).Caption = [Ô]Item Esp[Ô]
grdpesq.Columns(4).Width = 1500
grdpesq.Columns(4).Caption = [Ô]Tipo Medição 1 [Ô]
grdpesq.Columns(5).Width = 1500
grdpesq.Columns(5).Caption = [Ô]Tipo Medição 2 [Ô]
grdpesq.Columns(6).Width = 800
grdpesq.Columns(6).Caption = [Ô]Status [Ô]
End Sub



e no click do meu grid tenho

[th][/th]
grdPesq_Click
Private Sub grdPesq_Click()
cmdNovoEsp.Enabled = True
cmdEditarEsp.Enabled = True
cmdExcluirEsp.Enabled = True
cmdGravarEsp.Enabled = False



wSituacao = 1

Call ProcDesabilitaCampos


grdPesq.Col = 0
wRol1 = grdPesq.Text
grdPesq.Col = 1
wRol2 = grdPesq.Text
grdPesq.Col = 2
wRol3 = grdPesq.Text
grdPesq.Col = 3
wRol4 = grdPesq.Text
grdPesq.Col = 4
wRol5 = grdPesq.Text
grdPesq.Col = 5
wRol6 = grdPesq.Text
grdPesq.Col = 6
wRol7 = grdPesq.Text


txtCodigo.Text = wRol1
txtMP.Text = wRol2
txtItem.Text = wRol3
txtItemEsp.Text = wRol4
txtTipoMedicao1.Text = wRol5
txtTipoMedicao2.Text = wRol6
On Error Resume Next
cbostatus.Text = wRol7


WCrit = [Ô]SELECT * FROM DETALHESCONSTRUTIVOSEQUIP2 WHERE DCODPRO = [ô][Ô] & wRol1 & [Ô][ô] AND DCODPRI = [ô][Ô] & wRol2 & [Ô][ô] and DCODEQUIP = [ô][Ô] & wRol3 & [Ô][ô] and DCODEQUIP2 = [ô][Ô] & wRol4 & [Ô][ô] and tipomedicao1 = [ô][Ô] & wRol5 & [Ô][ô] and tipomedicao2 = [ô][Ô] & wRol6 & [Ô][ô][Ô]
Set QueryCli = New ADODB.Recordset
QueryCli.CursorLocation = adUseClient
QueryCli.Open WCrit, CnBanco, adOpenDynamic, adLockOptimistic




End Sub


MARCELO.TREZE 16/01/2014 10:42:20
#433138
Meu amigo mestre, você precisa se situar um pouco, vamos a algumas explicações.

todos grids são normais, porém cada um com uma caracteristica diferente.

então quando você fala grid normal não sabemos o que quer dizer, pois pode ser DBgrid, MSHFlexgrid, MSFlexgrid, datagrid, listview e assim vai

se voce está com dificuldade de explicar coloca um print da barra esquerda do seu projeto onde ficam os componentes, assim poderemos ver do que estamos falando

exemplo da minha barra

MESTRE 16/01/2014 11:41:31
#433145
Pra mim grid normal é esse grid aqui hahaha.. sorry e que venho do VB.Net para o VB6 haha

MARCELO.TREZE 16/01/2014 12:28:21
#433148
Resposta escolhida
você deve estar usando o componente data control pra fazer o conexao com seu banco é isso mesmo?

este seu grid é um data grid que você relaciona com o data control e ja preenche sua tabela.

isso tudo é apenas supositório tá, se eu estiver enganado me explique com está fazendo.

você tera de migrar pra ado onde fará um loop preenchendo o grid.

MESTRE 16/01/2014 13:23:05
#433157
Opa.. entao Marcelo ja estou usando ADO..
Tópico encerrado , respostas não são mais permitidas