Dim Custo As String
L= grid_Manobras.Row
A = grid_Manobras.TextMatrix(L, 1)
If A = Empty Then
Custo = grid_Manobras.TextMatrix(L, 5)
txt_valor = grid_Manobras.TextMatrix(L, 1) 'Trem
cmd_Solicita.Enabled = False
cmd_cancela.Enabled = True
Else
Exit Sub
End If
End Sub
Vejamos como funciona
O Número da linha e carregada na variável L pelo código L= grid_Manobras.Row
O Custo e carregado pelo valor da linha (L,5) onde L e o Número da linha selecionada.
Abraços