Visualizzazione dei risultati da 1 a 6 su 6

Discussione: filtrare un datareport

  1. #1
    Utente di HTML.it
    Registrato dal
    Apr 2003
    Messaggi
    244

    filtrare un datareport

    ho inserito un filtro in un datareport con questo codice
    codice:
    Data1.Recordset.Update
    Data1.Recordset.MoveLast
    
    Dim strFiltro As String
    strFiltro = "cont = " & Data1.Recordset("cont")
    DataEnvironment3.rsCommand21.Filter = strFiltro
    
    DataReport22.Show
    richiama il datareport attraverso un campo contatore in modo che mi stampi solo lultimo record inserito.
    il problema e' che lanciando il programma e facendo la stampa funziona
    poi non funziona piu' mi da il datareport bianco

    cioe' funziona solo una volta

    sapreste aiutarmi?

  2. #2
    O utilizzi un DataEnvironment a cui passi il parametro su cui eseguire il filtro oppure lo fai tramite codice all'apertura del report. In questo caso è un po' più complesso ma ti eviti il DataEnvironment: puoi utilizzare una connessione ADO ed utilizzi come DataSource del report il recordset che apri, se vuoi filtrare i campi dovrai utilizzare un provider SHAPE e quindi costruirti la query utilizzando la sintassi di questo provider che assocerai alla proprietà CommandText.

  3. #3
    ogni volta che hai la necessità di filtrare i dati, devi necessariamente annullare il filtro precendente, in questo modo:
    codice:
    Data1.Recordset.Update 
    Data1.Recordset.MoveLast 
    
    Dim strFiltro As String 
    strFiltro = "cont = " & Data1.Recordset("cont") 
    DataEnvironment3.rsCommand21.Filter = ""
    DataEnvironment3.rsCommand21.Filter = strFiltro 
    
    DataReport22.Show
    così funzionerà

    NB:
    boy, te lo dico per l'ultima volta, USA I TAG PER IL CODICE: [*code][*/code] senza *
    la prossima volta cancello la discussione invece di modificarti il post.


    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  4. #4
    Utente di HTML.it
    Registrato dal
    Apr 2003
    Messaggi
    244

    lady

    lady non mi funziona me lo fa sempre una volta sola poi mi da il report bianco

    codice:
    Data1.Recordset.MoveLast
    
    Dim strFiltro As String
    strFiltro = "cont = " & Data1.Recordset("cont")
    
    DataEnvironment3.rsCommand21.Filter = ""
    
    DataEnvironment3.rsCommand21.Filter = strFiltro
    
    
    DataReport22.Show

  5. #5
    prova così:
    codice:
    Data1.Recordset.Update 
    Data1.Recordset.MoveLast 
    
    Dim strFiltro As String 
    strFiltro = "cont = " & Data1.Recordset("cont") 
    
    DataEnvironment3.rsCommand21.Filter = ""
    DataEnvironment3.rsCommand21.Close
    DataEnvironment3.rsCommand21.Open
    
    DataEnvironment3.rsCommand21.Filter = strFiltro 
    
    DataReport22.Show
    i tag si scrivono senza *

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  6. #6
    Utente di HTML.it
    Registrato dal
    Apr 2003
    Messaggi
    244

    ERR

    mi dice l'operazione non e' consentita se l'oggetto e' chiuso
    sbaglio la posizione di quando lo chiudo?


    codice:
    Data1.Recordset.MoveLast
    
    
    
    Dim strFiltro As String
    strFiltro = "cont = " & Data1.Recordset("cont")
    DataEnvironment3.rsCommand21.Filter = ""
    DataEnvironment3.rsCommand21.Close
    DataEnvironment3.rsCommand21.Open
    
    
    
    DataEnvironment3.rsCommand21.Filter = strFiltro
    
    
    
    DataReport22.Show

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.