我用动态查询做了一个报表,但是Preview只显示一条记录,不知道什么原因,代码如下:
DBQuery: TADOQuery;try
begin
strQuery:='……';
DBQuery.Close;
DBQuery.SQL.Clear;
DBQuery.SQL.Add(strQuery);
DBQuery.Open; //绑定字段
qrtxtQueryNO.DataField:='……';
……
end;
except
on E:Exception Do
Application.MessageBox(PChar(E.Message),PChar(Application.Title),MB_OK);
end;

解决方案 »

  1.   

    如用QR的话:QUICKREP1。DATASET:=ADOQUERY1
      

  2.   

    谢谢 WWWWA(aaaa)!这个问题已经解决了,方法和你一样。同时再问个问题:
    我要对字段做处理,在字段绑定的TQRDBText对象中的OnPrint事件中做处理,但没有得到应有的效果,代码如下:
    procedure TfrmQRTracking.qrtxtBResolvedPrint(sender: TObject;
      var Value: String);
    begin
    case Integer(Value) of
    0:Value:='No';
    1:Value:='Yes';
    else
    Value:='';
    end;
      

  3.   

    IF Value='0' THEN VALUE:='NO';
    IF Value='1' THEN VALUE:='YES';
    IF Value=' ' THEN VALUE:=' ';
      

  4.   

    IF Value='0' THEN VALUE:='NO';
    IF Value='1' THEN VALUE:='YES';
    IF Value=' ' THEN VALUE:=' ';
      

  5.   

    IF Value='0' THEN VALUE:='NO';
    IF Value='1' THEN VALUE:='YES';
    IF Value=' ' THEN VALUE:=' ';