大侠，帮帮忙，几句代码，有一点小问题？

Question

更正以下：还是错，运行不错，显示不出？？？begin
with ADODataSet1 do begin
      close;
    CommandType:=cmdText;
  commandText:='select productToFactory from productlist where productToFactory<1';open;
while not ADODataSet1.eof do begin
        mych:=ADODataSet1.FieldByName('productToFactory').asstring;
        mych1:=copy(mych,1,1);
        if mych1='0'  then  begin QRDBText5.Caption :=format('0%s',[mych]);exit;end//next;
end;
end;

Answer 1

代码好像没错，问题是你将这段代码写在哪里，QRDBText5是在什么区域，你的用意？我猜应该在QRDBText5的BeforPrint中写，当然，写法要改。
另外，既然自己赋值，用QRLabel就行了。