COMO USAR O APPROXCOUNT DO DBGRID NO FLEXGRID

WEBIER 22/01/2010 18:25:58
#332654
Possuia uma formulario que gerava um relatorio (Visual ReportX)...

A ideia era pegar dados do grid e tb dos datacontrol.

Agora eu removi os dbgrid e coloquei no lugar flexgrid. meu problema tá nesse comando ApproxCount que no flexgrid parece que nao existe...

como ficaria esse codigo abaixo migrando pra flexgrid?


    rfData.Caption = Caixa_Controle.mskData.Text
    
    Dim Total As Integer

    Contador = 0
    Total = 0

    Copiar
    
    [ô]Saber a quantidade de registros
    Total = Caixa_Controle.DBGrid1.ApproxCount + IIf(Caixa_Controle.DBGrid1.ApproxCount > 0, 2, 0)
    Total = Total + Caixa_Controle.DBGrid3.ApproxCount + IIf(Caixa_Controle.DBGrid3.ApproxCount > 0, 2, 0)
    
    On Error Resume Next
    Caixa_Controle.Data1.Recordset.MoveFirst
    Caixa_Controle.Data4.Recordset.MoveFirst

    If Caixa_Controle.DBGrid1.ApproxCount > 0 Then

        String_Tipo_Caixa = [Ô]ENTRADAS_CAIXA[Ô]

        For i = 0 To Caixa_Controle.DBGrid1.Columns.Count - 1
            TituloCampo(i).Caption = UCase(Caixa_Controle.DBGrid1.Columns(i).Caption)
        Next

    End If

    CalculoTodos(0).Caption = [Ô]SUB-TOTAL: [Ô] & Caixa_Controle.txtEntrada.Text
    CalculoTodos(1).Caption = [Ô]SAIDAS: [Ô] & Caixa_Controle.txtSaida.Text
    CalculoTodos(2).Caption = [Ô]TOTAL : [Ô] & Caixa_Controle.txtTotal.Text
    
    Relatorio.NumeroRegistros = Total
    Relatorio.Ativar

[ô]CABEÇALHO TIMBRADO
On Error GoTo TrataErro
WEBIER 25/01/2010 11:29:44
#332779
Alguem?
Tópico encerrado , respostas não são mais permitidas
Voltar