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?
------------------------ 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/
