filtrare un datareport

[BOYROMA1]

ho inserito un filtro in un datareport con questo 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?

[thunderlips]

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.

[ladyBlu]

ogni volta che hai la necessità di filtrare i dati, devi necessariamente annullare il filtro precendente, in questo modo:

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.

[BOYROMA1]

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

Data1.Recordset.MoveLast

Dim strFiltro As String
strFiltro = "cont = " & Data1.Recordset("cont")

DataEnvironment3.rsCommand21.Filter = ""

DataEnvironment3.rsCommand21.Filter = strFiltro


DataReport22.Show

[ladyBlu]

prova così:

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 *

[BOYROMA1]

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

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