Newsgroup: it.comp.lang.visual-basic
Titolo: DATAREPORT (Pié di Pagina) : URGENTE!!.

Salve, ho creato un Report per una Fattura con una parte di intestazione,
una parte di Dettagli (articoli, ecc...) ed una parte finale dove metto vari
totali, Date Scadenza in base al Pagamento del Cliente, ecc...
C'è solo un problemino (secondo me molto grande!!!):
Nel Pié di Pagina o Pié di Report non posso mettervi nessun campo!!!!,
allora mi dite come si fa a mettere dei campi per visualizzarli alla fine di
un Report?....
Per di più i campi che devo mettere alla fine della Fattura (Pié di Pagina)
devono essere stampati da un certo punto in poi nel modulo della fattura che
ho d'esempio, ma dal DataReport non c'è la possibilità di dirgli "questa
Sessione" la stampi da un certo punto in poi!....
SE QUALCUNO HA AVUTO LO STESSO PROPLEMA O L'HA RISOLTO MI DAREBBE UN
GRANDISSIMO AIUTO DATO CHE HO L'URGENZA DI CONSEGNARE QUESTO LAVORO MOLTO MA
MOLTO MA MOLTO URGENTEMENTE!.
Grazie per l'interessamento.
Simone.
--
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/

Ti posto una parte di un un mio progetto (sono impazzito per capire come si
fa')  ed in coda ne approfitto per farti una domanda.
Nelle varie Section, devi mettere delle Label e valorizzarle (in modo
contorto, vedi codice) nell'evento Inizialize
Dim Conn As ADODB.Recordset
Dim strSQLQuery As String
Const OLEDBVer = "3.51"
Dim totOrdine As Double
Dim totContributi As Single
Set Conn = CreateObject("ADODB.RecordSet")
Conn.ActiveConnection = "Provider=Microsoft.Jet.OLEDB." + OLEDBVer + ";Data
Source=" + App.Path + "\Db\OEN.adv"
strSQLQuery = "SELECT * FROM tblRigheOrdini WHERE idOrdine=" &
Ordini.GetOrdineCorrente.Numero
Conn.Open (strSQLQuery)
Conn.Requery
Do While Not Conn.EOF
    If Conn("Tipo") <> "OM" And Conn("Tipo") <> "SS" And Conn("Tipo") <>
"CV" Then
        totOrdine = totOrdine + (Conn("Prezzo") * Conn("Quantita"))
        totContributi = totContributi + (Conn("Prezzo") * Conn("Quantita"))
/ 100 * Conn("Contributo")
    End If
    Conn.MoveNext
Loop
Conn.Requery
Set DataReportOrdine.DataSource = Conn
DataReportOrdine.Sections("SectionTestata").Controls("lblNOrdine").Caption =
Ordini.GetOrdineCorrente.Numero
DataReportOrdine.Sections("SectionTestata").Controls("lblAgente").Caption =
UserKey
DataReportOrdine.Sections("SectionTestata").Controls("lblCliente").Caption =
Ordini.GetOrdineCorrente.RagioneSocialeCliente
DataReportOrdine.Sections("SectionTestata").Controls("lblData").Caption =
Ordini.GetOrdineCorrente.Data
DataReportOrdine.Sections("SectionTotali").Controls("lblTotaleLordo").Captio
n = CDbl(totOrdine / 100) * 100
DataReportOrdine.Sections("SectionTotali").Controls("lblContributo").Caption
= CDbl(totContributi / 100) * 100
DataReportOrdine.Sections("SectionTotali").Controls("lblTotale").Caption =
CDbl(totOrdine - totContributi / 100) * 100
DataReportOrdine.Refresh
Conn.Close
PROBLEMA:
Hai mai provato a creare un Setup di un prog. che contiene DataReport????
Tutto sembra perfetto, ma se lo installi su un Pc 'Vergine', il programma
funziona ma i Report non appaiono!!!!(senza generare errori.)
Uso InstallShield 6.1 Pro ma ho provato anche con Installer 1.1 e con
Creazione guidata pacch. di inst di vb6.
Cosa diavolo bisogna includere nell'installazione ??????????????????????'
Vorrei risolvere il problema con InstallShield 6.1 Pro
Ciao
Kjo

 funziona ma i Report non appaiono!!!!(senza generare errori.)
