小弟最近在使用delphi6和crystal寫報表。 但是已經在delphi查詢好的資料，卻一直傳不過去crystal。 每次當開啟報表時，還是看見所有的資料。 似乎變成delphi的作delphi的， crystal的作crystal的。 請教一下，我該怎麼把我在delphi查詢好的資料傳給crystal呢？

你是用 VCL 還是 ActiveX 方式??

我是使用VCL的方式。

引言: 我是使用VCL的方式。

不好意思我沒用過VCL 但家中書中好像有,回去看看好了

查了一下資料，發現原因出在Crpe1.sql.query1.add('SELECT * FROM XXXX'); 並沒有作用。並且出現Error:536的錯誤。 因為要使用動態的方式產生SQL語法，所以目前只有想到這個方式。 可以請有使用過這個方式的大大賜教一下嗎。

透過creeds1 procedure TForm1.Button1Click(Sender: TObject); begin ADOQUERY1.ClOSE; ADOQUERY1.SQL.Clear; ADOQUERY1.SQL.Add('SELECT * FROM TableName WHERE Field=:FieldName'); ADOQUERY1.Parameters[0].Value :=STRTOINT(EDIT1.Text); ADOQUERY1.Open; Crpe1.Tables[0].DataPointer := CrpeDS1.DataPointer; Crpe1.Refresh; Crpe1.Execute; end;

Error 536 mean "You have attempted to log on using incomplete or incorrect log on parameters"    You can try by      DPath := ' Rpt path'   CrDyEmpMoOpSize.ReportName := DPath+'rptname.rpt';   CrDyEmpMoOpSize.WindowStyle.Title := 'Rpt Title';      CrDyEmpMoOpSize.OpenJob;   CrDyEmpMoOpSize.Connect.Retrieve;   CrDyEmpMoOpSize.Connect.Password := 'db connection password';      CrDyEmpMoOpSize.SQL.Retrieve;   CrDyEmpMoOpSize.SQL.Clear;   CrDyEmpMoOpSize.SQL.Query.Text := 'select statement';    //parameter if got CrDyEmpMoOpSize.ParamFields.Retrieve;   for cnt := 0 to (CrDyEmpMoOpSize.ParamFields.Count - 1) do   begin     if CrDyEmpMoOpSize.ParamFields[cnt].Name = 'pProdGroup' then        CrDyEmpMoOpSize.ParamFields[cnt].Value := cbProdGroup.Text;   end;      CrDyEmpMoOpSize.Execute;