MSHFLEXGRID TRAVANDO

NILTON.VIANNA 23/09/2012 22:40:01
#410305

Boa noite amigos

Alguém usa MSHFLEXGRID, é muito bom para grande entrada de dados.
Mais tem um defeito chato, se perde na pesquisa trava, fecha o projeto
Alguém tem alguma ideia?
Grato...


Private Sub GridC_Click()
If GridC.Row <> 0 Then
LinhaAtual = GridC.Row
Call MouseCliceked(GridC)
Else
If GridC.Row > 2 Then
LinhaAtual = 1
txtNome.Text = GridC.Row
Call MouseCliceked(GridC)
End If
End If
End Sub

Private Sub GridC_DragDrop(Source As Control, x As Single, Y As Single)
If m_iDragCol = -1 Then Exit Sub [ô] no se estaba arrastrando
If GridC.MouseRow <> 0 Then Exit Sub
With GridC
.Redraw = False
.ColPosition(m_iDragCol) = .MouseCol
.Redraw = True
End With
End Sub