POS软件编写时新增单据号的问题(急!急!急!急!) ( 积分: 100 )

  • 主题发起人 主题发起人 fujingkai
  • 开始时间 开始时间
F

fujingkai

Unregistered / Unconfirmed
GUEST, unregistred user!
//初始单号
for i:=1 to 9999 do
begin
SID:=FormatdateTime('yymmdd', Now)+FormatFloat('0000',i);
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select * from Sell_Main Where InvoiceID="'+SID+'"');
ADOQuery2.Open;
if ADOQuery2.RecordCount=0 then
begin
Break;
end;
end;
//读取单号
Label26.Caption:=SID;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from Sell_Minor Where InvoiceID="'+Label26.Caption+'"');
ADOQuery1.Open;
end;

我一测试时就出现列(label26.caption)不存在
 
跟踪了没有?
Label26.Caption:=SID;
之后,Label26.Caption的值是正确的?
 
搞不清楚问题的话,还是用参数吧,简单多了,也不容易出问题
 
label26值是正确的
怎么样跟踪路径啊
 
晕,提示:列(label26.caption)不存在
—— 可能有2个:
1、你的Label26.Caption还没被刷新 中间插入一个application.ProcessMessages
鉴别方法:Label26的默认Caption改个其它的,看是不是又有新的提示 列:xxx不存在。

2、你的语句把Label26.Caption的字眼包含进去了,看你的语句不像。查一下程序,别写成:+'Label26.Caption'+ ( '+' 放错地方)....
 
ADOQuery1.SQL.Add('Select * from Sell_Minor Where InvoiceID="'+Label26.Caption+'"');
改成
ADOQuery1.SQL.Add('Select * from Sell_Minor Where InvoiceID='+quotedstr(Label26.Caption));
看看
分号这些东西麻烦,我一般这么处理
 
后退
顶部