Datagrid

[fantasma]

Quero dar um duploclick no registro do datagrid e recuperar o id para abrir um form.

[Donati]

e ai beleza!!!!!!

Segue abaixo um exemplo usando um grid proprietario (SPREAD), mas a funcionalidade é bem parecida com o grid

Private Sub sprProcessos_DblClick(ByVal Col As Long, ByVal Row As Long)

    Dim strNumProcesso      As String
    Dim strAnoProcesso      As String
    Dim strNmeAutorProcesso As String
    Dim strVara           As String
    Dim intPosicao          As Integer

    sprProcessos.Row = sprProcessos.ActiveRow

    sprProcessos.Col = 1
    If Trim(sprProcessos.Text) = "" Then
        Exit Sub
    End If

    sprProcessos.Col = 1
    intPosicao = InStr(sprProcessos.Text, "/")
    strNumProcesso = Trim(Mid(sprProcessos.Text, 1, intPosicao - 1))
    strAnoProcesso = Trim(Mid(sprProcessos.Text, intPosicao + 1, Len(sprProcessos.Text)))

    sprProcessos.Col = 2
    strNmeAutorProcesso = Trim(sprProcessos.Text)

    sprProcessos.Col = 3
    strVara = Trim(sprProcessos.Text)[/codebox]

Espero ter te ajudado

ate mais

FUI!!!!!!!!!!!!!!!!!!