[es] - PrintDocument decimale za vrjednost

dare01
Belišće

Član broj: 123745
Poruke: 2
*.adsl.net.t-com.hr.

Profil

^{03.12.2006. u 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ć.

^{03.12.2006. u 08:58}

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 235
*.donet.co.yu.

Profil

Re: PrintDocument decimale za vrjednost

^{03.12.2006. u 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!

^{03.12.2006. u 12:24}