PROBLEMA COM PESQUISA DENTRO MSFLEXGRID USANDO ADO
Bom dia Galera,
Estou uma uma pequena bucha, na minha tela de localizar tem uma MSFLEXGRID cheias de dados, criei uma TXTCPF para localizar a pessoa mais rapido dentro daquele monte de gente, porem não estou conseguindo fazer um codigo para essa TXT localizar a pessoas distinta dentro da MSFLEXGRID.
estou usando ADO galera.....
Obrigado muito pela força galera
Estou uma uma pequena bucha, na minha tela de localizar tem uma MSFLEXGRID cheias de dados, criei uma TXTCPF para localizar a pessoa mais rapido dentro daquele monte de gente, porem não estou conseguindo fazer um codigo para essa TXT localizar a pessoas distinta dentro da MSFLEXGRID.
estou usando ADO galera.....
Obrigado muito pela força galera
posta como vc preenche o flexgrid
O cod que estou usando no form são apenas esses dois
Private Sub MGrid1_Click()
If MGrid1.Col <> 1 Then
MGrid1.Col = 1
End If
frmCadastro.lblId.Caption = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmCadastro.txtnome.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmCadastro.txtEnd.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmCadastro.txtCep.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmCadastro.txtBairro.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmCadastro.txtCidade.Text = MGrid1.Text
Unload Me
End Sub
Private Sub Form_Load()
MGrid1.AllowUserResizing = flexResizeBoth
DoEvents
MGrid1.AllowUserResizing = flexResizeBoth
MGrid1.Cols = RX.Fields.Count + 1
MGrid1.Rows = 1
DoEvents
For X = 0 To MGrid1.Cols - 1
MGrid1.TextMatrix(0, X) = [Ô]ID[Ô]
DoEvents
Next
MGrid1.Row = 0
For i = 0 To RX.Fields.Count - 1
MGrid1.Col = i + 1
MGrid1.ColAlignment(i + 1) = flexAlignLeftCenter
MGrid1.ColWidth(i + 1) = 1500
MGrid1.Text = RX.Fields(i).Name
DoEvents
Next
MGrid1.ColWidth(4) = 3500
CONTADOR = 0
Do While Not RX.EOF
MGrid1.Row = MGrid1.Rows - 1
For i = 0 To RX.Fields.Count - 1
MGrid1.Col = i + 1
MGrid1.Text = RX(i).Value & [Ô][Ô]
DoEvents
Next
RX.MoveNext
DoEvents
CONTADOR = CONTADOR + 1
If CONTADOR = 2000 Then
If MsgBox([Ô]Chegou em 2000 registros[Ô] & vbCrLf & [Ô]deseja cancelar?[Ô], vbYesNo + vbQuestion, [Ô]Atenção[Ô]) = vbYes Then
GoTo pula2000
End If
End If
Loop
pula2000:
[ô]PARA NUMERAR LINHAS DA CONSULTA NO FLEXGRID
With MGrid1
[ô].ColAlignment(-1) = 1 [ô]all Left alligned
For X = 1 To MGrid1.Rows - 1
MGrid1.TextMatrix(X, 0) = Str(X)
Next
End With
End Sub
Tópico encerrado , respostas não são mais permitidas