kalo pake currency, $-nya ikut nongol pas kita tampilkan... ada cara
buat ilangin ? saya latihan pake 2 currenry
--- In [EMAIL PROTECTED], "Squid" <[EMAIL PROTECTED]> wrote:
> ----- Original Message -----
> From: "hansw_id" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Monday, 07 July 2003 12:34 PM
> Subject: [Delphindo] bcd type, help pls
>
>
> > saya ada field BCD (Paradox) untuk harga dan ingin saya jumlahkan
> > dalam laporan.
> > codingnya :
> > var rupiah, dollar : Variant;
> > begin
> > with frmCetakJualPerPeriode.Query1 do
> > begin
> > sql.Clear;
> > sql.Add('select * from jual where tgl>=:tg1 and
> > tgl<=:tg2');
> > Prepare;
> > ParamByName('tg1').AsDate:=DateTimePicker1.Date;
> > ParamByName('tg2').AsDate:=DateTimePicker2.Date;
> > open;
> > end;
> > rupiah:=0; dollar:=0;
> > while not frmCetakJualPerPeriode.Query1.Eof do
> > begin
> > if (frmCetakJualPerPeriode.Query1.FieldByName
> > ('kurs').AsString='Rupiah') then
> > begin
> > rupiah:=rupiah +
frmCetakJualPerPeriode.Query1.Fields
> > ['harga'].AsVariant; //ERROR
> > end;
> > frmCetakJualPerPeriode.Query1.Next;
> > end;
> > frmCetakJualPerPeriode.qrlabel10.caption:=VarToStr(rupiah);
> > frmCetakJualPerPeriode.QuickRep1.Preview;
> > end;
> >
> > kok errornya : incompatible types 'Integer' and 'String' ???
> > variant kan bisa menampung semua tipe?
>
> Iya ... bisa untuk menampung segala macam tipe, tapi harus di-
translate dulu
> dari atau ke Variant (cmiiw).
> Makanya ... gunakan AsCurrency. Daripada bingung ... ^^;
>
> Salam,
> Sintar.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get A Free Psychic Reading! Your Online Answer To Life's Important Questions.
http://us.click.yahoo.com/Lj3uPC/Me7FAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
