Olá pessoal, estou criando uma consulta a várias tabelas do banco de dados, utilizando o objeto sstab, exemplo na primeira guia faço uma consulta na tabela de cliente, na segunda guia faço uma consulta a tabela contas a receber, nesta guia estou usando o flexgrid para receber os dados da tabela contas a receber, o problema é que cada vez que eu clico na guia ele adiciona várias linhas vazia no grid, alguém ja teve algum problema parecido?? ele vai multiplicando o número de linhas a cada clique nas guias.

Quem puder ajudar agradeço de coração.

Um abraço a todos.

o seu flexgrid está atrelado a alguma tabela?

Se estiver provavelmente essa tabela deve ter linha em vazias, isso causaria esse probema

 

raiane, vc tem que excluir as linhas do grid depois de fazer a primeira consulta

o flexgrid nao faz sozinho

 

Não, não há linhas em branco nas tabelas.

No meu objeto SSTabte  3 guias, na primeira guia eu tenho os dados do cliente, para isso eu utilizei textbox mesmo, até ai sem problemas. Na segunda guia do SSTab eu tenho 1 FlexGrid que recebe as parcelas do cliente e na terceira guia eu tenho outro felxgrid que recebe os produtos comprados pelo cliente. É ai que começa o problema. Exemplo: na segunda guia o cliente parcelou suas compras em 3 vezes, então a primeira vez que eu clico na segunda guia ele me traz o flexgrid com 3 linhas preenchidas com as parcelas do cliente. Se eu clicar em outra guia, ele aumenta o número de linhas do flexgrid para 6, com as primeiras linhas preenchidas com as parcelas do cliente e 3 linhas em branco, se eu clicar novamente em outra guia, ele aumenta o número de linhas do flexgrid com o parcelamento do cliente para 9, 3 linhas com as informações de parcelamento e 6 linhas vazias, e assim sucessivamente. Se eu cilcar 10 vezes nas guias ele me mostra 30 linhas as primeiras 3 preenchidas e o restante em branco.

 

Por favor alguém já passou por coisa igual???

Desde já agradeço.

passa o código que voce faz a carga do flexgrid que está aumentando, pra gente dar uma olhada

Daniel esse é o código que estou utilizando para preencher o grid com as informações da tabela, e está causando aquele problema que já expliquei.

 

estou tentando exluir  as linhas conforme sugestão do Cardoso mas ainda não consegui nada.

 

Private Sub SSTab1_Click(PreviousTab As Integer)

i = 1

xsql = "SELECT Contas_Receber.cr_valorparcela, Contas_Receber.cr_datalancamento, Contas_Receber.cr_tipopagto, Contas_Receber.cr_numparcela, Contas_Receber.cr_datavenc"
xsql = xsql & " FROM Clientes INNER JOIN Contas_Receber ON Clientes.cl_cod_cliente = Contas_Receber.cr_codcliente"
xsql = xsql & " WHERE (((Clientes.cl_cod_cliente)='" & txtCodigoCliente & "'))"

Set registrocontas = xmdb.OpenRecordset(xsql, 2)
                   
                   
If registrocontas.RecordCount = 0 Then
      Exit Sub
End If

                  
While Not registrocontas.EOF
 flgInformacoesFinanceira.Rows = flgInformacoesFinanceira.Rows + 1

    If IsNull(registrocontas("cr_numparcela")) Then
                flgInformacoesFinanceira.TextMatrix(i, 0) = Empty
                Else
    flgInformacoesFinanceira.TextMatrix(i, 0) = registrocontas("cr_numparcela")
    End If
  
    If IsNull(registrocontas("cr_datalancamento")) Then
                flgInformacoesFinanceira.TextMatrix(i, 1) = Empty
                Else
    flgInformacoesFinanceira.TextMatrix(i, 1) = registrocontas("cr_datalancamento")
    End If
       
    If IsNull(registrocontas("cr_datavenc")) Then
                flgInformacoesFinanceira.TextMatrix(i, 2) = Empty
                Else
    flgInformacoesFinanceira.TextMatrix(i, 2) = registrocontas("cr_datavenc")
    End If
   
   
    If IsNull(registrocontas("cr_tipopagto")) Then
                flgInformacoesFinanceira.TextMatrix(i, 3) = Empty
                Else
    flgInformacoesFinanceira.TextMatrix(i, 3) = registrocontas("cr_tipopagto")
    End If
   
   
   
    If IsNull(registrocontas("cr_valorparcela")) Then
                flgInformacoesFinanceira.TextMatrix(i, 4) = Empty
                Else
    flgInformacoesFinanceira.TextMatrix(i, 4) = Format$(registrocontas("cr_valorparcela"), "currency")
    End If

   
         
     i = i + 1

 
    registrocontas.MoveNext

Wend

 

end sub