----- 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 ---------------------~-->
Save up to 80% on top-quality inkjet cartridges and get your order fast!
FREE shipping on orders $50 or more to the US & Canada. Shop at Myinks.com!
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/v2G7ND/KfUGAA/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/
