谁能解决这个问题,700分相送!决不食言。(100分)

  • 主题发起人 主题发起人 咕咕咕
  • 开始时间 开始时间
呵呵
大家说的不错,我是有点想偷懒的思想了,大家留个信箱吧,以后希望还能向大家请教!
 
shbjkl_cn@163.com
 
发钱了,快来呀
 
sql.Text :='select * from kucun where 卡类='''+ CCardType.Text+''' ';//and 日期>='+datetostr(dtpbegin
.Date)+' and 日期<='+datetostr(dtpend.
Date);
//+' group by 卡类,面值价';
open;
while not eofdo
begin
with ADOQCostdo
begin
sql.Text :='select 面值 from card where 卡品名='''+ CCardType.Text+'''';
open;
CardesNum:=ADOQCost.RecordCount*2;
setlength(Cardes,CardesNum );
i:=0;
while not eofdo
begin
if (ADOQSale['面值价']=ADOQCost['面值']) then
begin
cardes:=cardes+ADOQSale['数量'];
cardes[i+1]:=ADOQSale['成本价'];
end;
i:=i+2;
next;
 
接受答案了.
 
咕咕咕老兄,你的貼子我看到了,謝謝. 但這分我不能要,因為其實並沒幫到你什麼。
你還是將貼子收回吧。
我的E_mial:Lixiaohua2001@szwnx.com 共同學習
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部