LOCALIZAR UMA LINHA NO FLEXGRID

XWILLIANSS 13/09/2009 16:52:14
#322768
Olá,
Eu estou fazendo uma busca na tabela de comissões, e gostaria de colocar no FlexGrid, somente a linha localizada. No entanto, o GRID ainda exibe todos os registros contidos na tabela.

Como faço para localizar uma linha de registro da tabela, e colocar somente essa linha no GRID?

Fico grato!
XWILLIANSS 14/09/2009 03:04:11
#322795
Por favor alguém bom de VB6 aqui me ajude?
Ou será que os caras bons de VB6 aqui não sabem me responder?
THIAGO.CC 14/09/2009 09:30:27
#322803
XWILLIANSS,

Vamos ver se eu entendi, vc tem uma tabela e assim que localiza um determinado registro vc gostaria de preencher a Grid.

Bom se for isso é bem simples.

1º - Tera que limpar a Grid.
2º - Preencher o cabeçalho da grid.
3º - Preencher os dados selecionado na grid.

Exemplo:

Public Sub SUB_CARREGAR_GRID()

grd_impressao.Clear

grd_impressao.Rows = 2
grd_impressao.FixedRows = 1
grd_impressao.Rows = 1
grd_impressao.Cols = 3

grd_impressao.TextMatrix(0, 1) = [Ô]NOME[Ô]
grd_impressao.TextMatrix(0, 2) = [Ô]ENDEREÇO[Ô]
grd_impressao.TextMatrix(0, 3) = [Ô]CIDADE[Ô]

End Sub

Private Sub SUB_CARREGAR_DADOS_GRID()

[ô]----------------NESTA PARTE ADICIONA A CONSULTA QUE DESEJA ---------------------------------------------------------------------

grd_impressao.Rows = grd_impressao.Rows + 1

grd_impressao.TextMatrix(grd_impressao.Rows - 1, 1) = [Ô]NOME[Ô]

grd_impressao.TextMatrix(grd_impressao.Rows - 1, 2) = [Ô]ENDEREÇO[Ô]
grd_impressao.TextMatrix(grd_impressao.Rows - 1, 3) = [Ô]CIDADE[Ô]

End Sub


Thiago
TECLA 14/09/2009 10:24:25
#322806 Resposta escolhida
Poste o rotina que está usando para POPULAR o GRID com os dados da tabela.
LEANDRO 14/09/2009 17:25:24
#322858 
Dim Linha as String
Linha = Me.FlexGrid.RowSel

Select * from Tabela where Campo = [ô] [Ô] & Me.FlexGrid.TextMatrix(linha, 1) & [Ô] [ô] [Ô]


Citação:

Observações: FlexGrid = Nome da sua Grid
o Numero 1 no Select é a coluna que você deseja comparar ou seja a Linha que você selecionou + a Coluna de comparação com o Banco de Dados
XWILLIANSS 14/09/2009 19:37:37
#322866
Citação:

THIAGO_CC escreveu:
XWILLIANSS,

Vamos ver se eu entendi, vc tem uma tabela e assim que localiza um determinado registro vc gostaria de preencher a Grid.

Bom se for isso é bem simples.

1º - Tera que limpar a Grid.
2º - Preencher o cabeçalho da grid.
3º - Preencher os dados selecionado na grid.

Exemplo:

Public Sub SUB_CARREGAR_GRID()

grd_impressao.Clear

grd_impressao.Rows = 2
grd_impressao.FixedRows = 1
grd_impressao.Rows = 1
grd_impressao.Cols = 3

grd_impressao.TextMatrix(0, 1) = [Ô]NOME[Ô]
grd_impressao.TextMatrix(0, 2) = [Ô]ENDEREÇO[Ô]
grd_impressao.TextMatrix(0, 3) = [Ô]CIDADE[Ô]

End Sub

Private Sub SUB_CARREGAR_DADOS_GRID()

[ô]----------------NESTA PARTE ADICIONA A CONSULTA QUE DESEJA ---------------------------------------------------------------------

grd_impressao.Rows = grd_impressao.Rows + 1

grd_impressao.TextMatrix(grd_impressao.Rows - 1, 1) = [Ô]NOME[Ô]

grd_impressao.TextMatrix(grd_impressao.Rows - 1, 2) = [Ô]ENDEREÇO[Ô]
grd_impressao.TextMatrix(grd_impressao.Rows - 1, 3) = [Ô]CIDADE[Ô]

End Sub


Thiago



Valeu THIAGO.. conseguir fazer direitinho cara.... valeu mesmo
TECLA 14/09/2009 19:40:10
#322867
Problema resolvido.
[txt-size=2]Encerre o tópico.[/txt-size]
Tópico encerrado , respostas não são mais permitidas
Voltar