Newsgroup: it.comp.lang.visual-basic
Titolo: Cristal Report aiuto!

Ho da poco affrontato VB, e dopo un'entusiamo iniziale mi sono bloccato da
quasi un mese su i Report; spero che qualcuno mi possa aiutare..
Il problema e' questo:
Ho creato un programmino per delle fatture; e' stupendo pero'non riesco a
stampare la fattura finale.
Ho provato con "printer" ed andrebbe bene ma non riesco a formattare le
cifre allineate a dx come sul form.
Ho provato con "printForm" ma non riesco a spostare l'inizio della stampa in
un punto diverso dell'inizio foglio.
Ho provato con "cristal report" ma mi stampa tutti i record della tabella
associata, mentre io vorrei solo quello mostrato nel form di VB.
Immaggino che si deve filtrare im qualche modo i dati ma non so come.
Sono riuscito con la formula a filtrarli per "data" ma niente di piu'.
Penso che dovrei filtrarli per un campo univoco come potrebbe essere
Es."Numero Fattura" presente in Text1.text in VB, ma come faccio a dirlo a
CR?
Mi potete aiutare?

CR?
Dopo aver messo un controllo CR  sul form, devi passargli una formula
di selezione, prima di generare il report; più o meno è del tipo
controlloCR.selectionformula= {nometabella.nomecampo}=valore
es.
CR1.SelectionFormula = "{Fatture.nfatt}=10"
CR1.PrinterName = Printer.DeviceName
CR1.PrinterDriver = Printer.DriverName & ".drv"
CR1.PrinterPort = Printer.Port
CR1.RetrieveDataFiles
CR1.Action = 1

Ti ringrazio ErreBi, ho fatto un passo avanti.
Il problema grosso (per me) rimane:
Nella formula "controlloCR.selectionformula={nometabella.nomecampo}=valore"
tu a "valore" hai dato 10 per es. da inserire nel codice e va bene.
Ma io vorrei che quel valore non sia statico ma che possa essere variato di
volta in volta da programma, cambiando il valore di Text in Text2. Ho
provato ad inserire al posto di "Valore" il
nome del campo corrispondente (text2.text), ma non va', o per essere piu'
precisi il debugger mi illumina la riga "Report1.Action = 1".
 Ho provato ad aggiungere anche il nome del progetto (Progetto1.text2.text),
ma non va' lo stesso.
Ho provato anche:
Dim valore
valore = Text2.Text
Report1.SelectionFormula = "{Tabella1.fattura}=valore"
ma la risposta e' sempre la stessa.
Insomma non se ne esce da questa palude.
Sto girando per tutti i siti e trovo risposte a problemi ben piu' complicati
ma non a questo..
Spero che qualcuno mi aiuti..
Grazie

Dma ha scritto nel messaggio ...
+AD4-Report1.SelectionFormula +AD0- +ACIAew-Tabella1.fattura+AH0APQ-valore+ACI-
+AF4AXgBeAF4AXgBeAF4AXgBeAF4AXgBeAF4AXgBeAF4AXgBeAF4AXgBeAF4AXgBeAF4AXgBe-
Regola base della programmazione
Le variabili si mettono dentro o fuori rispetto alle stringhe indicate dagli
apici?
Es:
Dim Pippo
Pippo+AD0-Topolino
text1+AD0AIg-Ciao Pippo+ACI- --+AD4- risultato Ciao Pippo
text1+AD0AIg-Ciao +ACI- +ACY-  Pippo --+AD4- risultato Ciao Topolino
quindi la tua
Report1.SelectionFormula +AD0- +ACIAew-Tabella1.fattura+AH0APQ-valore+ACI-
diventa:
Report1.SelectionFormula +AD0- +ACIAew-Tabella1.fattura+AH0APQAi- +ACY- valore
e poi, ricorda che:
Topolino si fa le topoline, ed e' felice :-)
Paperino si fa le paperine, ed e' felice :-)
Pippo e' triste... :-(
Ciao

Insomma non se ne esce da questa palude.
Se valore è numerico:
	CR.selectionformula="{Tabella1.fattura}=10"
Se valore è alfanumerico:
	CR.selectionformula="{Tabella1.fattura}='ABC'"
Se valore è una data (ma non sono sicuro!)
	CR.selectionformula="{Tabella1.data}=date(1,31,1999)"
Errebi

 Pippo e' triste... :-(
E io che ci faccio con un post pieno di +AF4AXgBeAF4AXgB
eAF4AXgBeAF4AXgBeA F4AXgBeAF4AXgBeAF 4AXgBeAF4AXgBeAF4AXgBe-?
Lo stampo e... Lasciamo perdere, va';-)
--
Ciao.
Maurizio

Report1.SelectionFormula = "{Tabella1.fattura}=valore"
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Regola base della programmazione:
Le variabili si mettono dentro o fuori rispetto alle stringhe indicate dagli
apici?
Es:
Dim Pippo
Pippo="Topolino"
text1="Ciao Pippo" --> risultato Ciao Pippo
text1="Ciao " &  Pippo --> risultato Ciao Topolino
quindi la tua
Report1.SelectionFormula = "{Tabella1.fattura}=valore"
diventa:
Report1.SelectionFormula = "{Tabella1.fattura}=" & valore
Ciao

Grazieeeeee, veramente GRAZIE.
Caro Insanus, dal tuo nick non mi aspettavo un gran che (scherzo!), ed
invece mi hai stupito.
Funziona perfettamente.
Ho capito l'errore..
Grazie di nuovo.
p.s: a proposito, dici che Topolino se la fa' veramente  Minnie?