Nas propriedades do Mgrid1 - DataSource está definino o Adodc1?

Nao está pois estou trabalhando com o MSFlex e nao com o MSHFlex

Assim nao me dando a opção de selecionar o componente ADODC1.

 

Daniel. Fiz o teste com os 2 Objetos.

 

O MSHFlex esta definido sim o DataSource com o ADODC1 e mesmo assim nada.

1) É em todos os tipos de pesquisas que apresenta o erro?

2) Passa a linha da carga inicial do adodc1, antes da pesquisa (aquela que está funcionando)

Sim Daniel em todos.

Entao a pesquisa rola normal. O codigo que irei colar abaixo funciona antes da pesquisa, quando pesquiso ja me aponta o erro.

 

If MGrid1.Col <> 1 Then
MGrid1.Col = 1
End If

frmChDev.txtNCH.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmChDev.txtNBANCO.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmChDev.txtTITULAR.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmChDev.mskValor.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmChDev.txtDATA.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmChDev.cboEMPRESA.Text = MGrid1.Text
MGrid1.Col = MGrid1.Col + 1
frmChDev.rchOBS.Text = MGrid1.Text
Unload Me

 

O abaixo é do Load

Conecta
tabela.Open "Select * from tblCh", conexao

MGrid1.Cols = tabela.Fields.Count + 1
MGrid1.Rows = 2

MGrid1.Row = 0

 For i = 0 To tabela.Fields.Count - 1
MGrid1.Col = i + 1
  MGrid1.Text = tabela.Fields(i).Name
  Next

CONTADOR = 0
 Do While Not tabela.EOF
   MGrid1.Rows = MGrid1.Rows + 1
   MGrid1.Row = MGrid1.Rows - 1
 For i = 0 To tabela.Fields.Count - 1
       MGrid1.Col = i + 1
       MGrid1.Text = tabela(i).Value & ""

 Next
 tabela.MoveNext

 CONTADOR = CONTADOR + 1
Loop
tabela.Close

DoEvents
MGrid1.AllowUserResizing = flexResizeBoth

MGrid1.Cols = tabela.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 tabela.Fields.Count - 1
   MGrid1.Col = i + 1
         MGrid1.ColAlignment(i + 1) = flexAlignLeftCenter

          MGrid1.ColWidth(i + 1) = 1500
          MGrid1.Text = tabela.Fields(i).Name
        DoEvents
Next
MGrid1.ColWidth(4) = 3500

CONTADOR = 0

     Do While Not tabela.EOF
MGrid1.Rows = MGrid1.Rows + 1

MGrid1.Row = MGrid1.Rows - 1
         For i = 0 To tabela.Fields.Count - 1
              MGrid1.Col = i + 1
               MGrid1.Text = tabela(i).Value & ""
             DoEvents
   Next
  tabela.MoveNext
     DoEvents

     
          End If
  Loop
 '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
        .Row = 1
        .Col = 1
       .CellBackColor = &HC0FFFF   'lt. yellow
    End With
tabela.Close

Porque vc não altera essa rotina de load p/uma sub-rotina e chama a cada pesquisa alterando a linha:

tabela.Open "Select * from tblCh", conexao

 

tabela.Open "Select * from tblCH where NCH = '" & result & "' ", conexao

 

Utilizo mais o método DAO, mas acho que vai funcionar