PrintDocument decimale za vrjednost

[ dare01 @ 03.12.2006. 08:58 ] @

Pocetnik sam u programiranju pokušavam raditi u VB.net te imam problem sa izvještajima. Radim sa accessovom bazom i napisao sam sljedece u printpage-u:

Dim dr As OleDbDataReader
dr = com.ExecuteReader

While dr.Read

e.Graphics.DrawString(dr("vrsta"), font4, Brushes.Black, 100, razmak1)

e.Graphics.DrawString(dr("mjera"), font4, Brushes.Black, 340, razmak1, format1)
e.Graphics.DrawString(dr("kolicina"), font4, Brushes.Black, 480, razmak1, format2)
e.Graphics.DrawString(dr("cijena1"), font4, Brushes.Black, 590, razmak1, format2)
e.Graphics.DrawString(dr("cijena2"), font4, Brushes.Black, 730, razmak1, format2)

e.Graphics.DrawString(dr("racunID"), font, Brushes.Black, 600, 280)
e.Graphics.DrawString(dr("racunID"), font1, Brushes.Black, 600, 310)
e.Graphics.DrawString(dr("datum1"), font1, Brushes.Black, 600, 360)

razmak1 = razmak1 + fontHeignt

End While
dr.Close()
con.Close()

Problem je u tome što na izvještaj mi za cijenu1 i cijenu2 ne povuće decimale npr. neki iznos 111,00. U accessu sam ih oznacio kao currency i ne znam ga rješit te vas molim za pomoć.

[ dusans @ 03.12.2006. 12:24 ] @

Na primer ovako...

e.Graphics.DrawString(System.String.Format("{0:###,###,###,##0.00}", dr("cijena1")), font4, Brushes.Black, 590, razmak1, format2)

Pogledaj funkciju System.String.Format u help-u ako ti ovo ne odgovara ili ti zatreba za ostale stvari (npr. za datum1 polje).

Pozdrav!