Salto pagina

giovedì 04 aprile 2013 - 00.05

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Peppino Profilo | Junior Member

193 messaggi | Data Invio: gio 4 apr 2013 - 00:05

Ciao a tutti.

Sicuramente il mio post non suscita interesse per il Forum(per non avere risposta), purtroppo per me è un problema che non riesco a risolvere.
Ripeto ho fatto le dovute ricerche, ho letto, ho riletto, ho provato e riprovato, purtroppo il risultato è sempre al punto di partenza. Vi prego, anche se il mio post può essere ridicolo , datemi comunque un aiuto a risolvere il problema.
Grazie come sempre a tutti.
Ciao, Peppino.

Al codice seguente non riesco a fargli fare il salto pagina. Senza del ciclo esterno funziona benissimo, ma con l'aggiunta del ciclo esterno niente da fare. Ho postato in altra stanza, ma non ho avuto nessuna risposta ed ho pensato non fosse quella giusta, chiedo scusa se faccio sempre confusione a riguardo. Faccio presente di aver fatto delle ricerche nell'archivio del Forum e in rete e per quello riuscivo a capire(almeno io) le ho provate tutto, ottenendo sempre lo stesso risultato. Non so più dove sbattere la testa.
E' possibile un aiuto a risolvere il problema?. Grazie anticipatamente per l'eventuale risposta.

Ciao, Peppino.

Static causale As String
Static ix As Integer
Static i As Integer

For i = i To i

If i < bds1.Count Then
causale = CStr(dst1.Tables("Causale").Rows(i).Item(0))
e.Graphics.DrawString(causale, Font3, Brushes.Green, X + 10, Y)

Y += 25 'incremento della variabile per stampare la riga successiva.

cmd = New SqlCommand()
cmd.Connection = SqlHelper.ConnessioneDatabase
cmd.CommandText = "SELECT Cliente, Causale, Articolo, Um, SUM(Quantità) AS QuantitàP, SUM(Importo) AS ImportoP FROM UsciteDettaglio WHERE Cliente=@cliente and Causale=@causale GROUP By Cliente, Causale, Articolo, Um Order By Articolo"
cmd.Parameters.Add(New SqlParameter("@cliente", SqlDbType.VarChar))
cmd.Parameters("@cliente").Value = cliente
cmd.Parameters.Add(New SqlParameter("@causale", SqlDbType.VarChar))
cmd.Parameters("@causale").Value = causale
adp = New SqlDataAdapter(cmd)
dst = New DataSet
adp.Fill(dst, "Articolo")
adp.Fill(dst, "Um")
adp.Fill(dst, "Quantità")
adp.Fill(dst, "Importo")

bds = New BindingSource()
bds.DataSource = dst

bds.DataMember = "Articolo"
bds.DataMember = "Um"
bds.DataMember = "Quantità"
bds.DataMember = "Importo"

adp.Dispose()
cmd.Dispose()
cmd.Connection.Close()

ix = 0
importo1 = 0
importoUm1 = 0

For ix = ix To ix + NumeroRighePerPagina

If ix < bds.Count Then
articolo = CStr(dst.Tables("Articolo").Rows(ix).Item(2))
um = CStr(dst.Tables("Um").Rows(ix).Item(3))
quantità = CDec(dst.Tables("Quantità").Rows(ix).Item(4))
importo = CDec(dst.Tables("Importo").Rows(ix).Item(5))

prezzo = importo / quantità
importoUm = importo / CDec(TxtQuantità.Text)
importo1 += importo
importoUm1 += importoUm
importo2 += importo
importoUm2 += importoUm

e.Graphics.DrawString(articolo, Font6, Brushes.Black, X + 25, Y)
e.Graphics.DrawString(um, Font6, Brushes.Black, X + 290, Y)
e.Graphics.DrawString(Formatta(CStr(quantità), TipoFor.Migliaia_con_decimali), Font6, Brushes.Black, X + 340, Y)
e.Graphics.DrawString(Formatta(CStr(prezzo), TipoFor.Valuta), Font6, Brushes.Black, X + 400, Y)
e.Graphics.DrawString(Formatta(CStr(importo), TipoFor.Valuta), Font6, Brushes.Black, X + 520, Y)
e.Graphics.DrawString(Formatta(CStr(importoUm), TipoFor.Valuta), Font6, Brushes.Black, X + 660, Y)

Y += 25 'incremento della variabile per stampare la riga successiva.

e.HasMorePages = True 'Permetto di stampare la pagina successiva
Else
e.HasMorePages = False
End If
Next

e.Graphics.DrawString(Formatta(CStr(importo1), TipoFor.Valuta), Font3, Brushes.Red, X + 515, Y)
e.Graphics.DrawString(Formatta(CStr(importoUm1), TipoFor.Valuta), Font3, Brushes.Red, X + 655, Y)

Y += 25

End If
Next

e.Graphics.DrawString(Formatta(CStr(importo2), TipoFor.Valuta), Font3, Brushes.Blue, X + 515, Y)
e.Graphics.DrawString(Formatta(CStr(importoUm2), TipoFor.Valuta), Font3, Brushes.Blue, X + 655, Y)

Pagina += 1 'incremento numero della pagina.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !