1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ms Flexgrid Vb6

Discussão em 'Programação' iniciada por RPortela, 26 de Março de 2007. (Respostas: 1; Visualizações: 1331)

  1. RPortela

    RPortela Power Member

    Boa Tarde,

    Estou a desenvolver um projecto em VB6 com liagação a base de dados em Acess.

    Todas as ligações á base de dados, são feitas através de código, com recurso ao JET OLEDB 4.0 (penso que seja este o nome), e num dos formulários tenho uma ligação chamada CNN e um recordset chamado RS.

    Acontele que quero colocar naquele formulário um flexgrid, e que tenha ligação a esses mesmos dados, e que permita a navegação (se clicar numa linha do grid, ele muda o recordset para essa mesma linha, e os dados que apareçem na textbox´s são os mesmos dessa mesma linha).

    Não sei como fazer isso, já exprimentei: Set grid.datasource = rs .Mas não funciona :confused:

    Alguem me pode ajudar?

    Cumps.
     
  2. leinad

    leinad Power Member

    Experimenta isto e diz qualquer coisa... :)



    Private Sub MSFlexGrid1_Click()

    dim LastLinha As Long
    LastLinha = MSFlexGrid1.Row

    txt1.text = MSFlexGrid1.TextMatrix(LastLinha, 0)
    txt2.text = MSFlexGrid1.TextMatrix(LastLinha, 1)
    txt3.text = MSFlexGrid1.TextMatrix(LastLinha, 2)
    txt4.text = MSFlexGrid1.TextMatrix(LastLinha, 3)

    End Sub
     

Partilhar esta Página