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ć.