程式片段如下：
procedure TfrmAst31.btnPrn5Click(Sender: TObject);
var
strSQL:String;
QryTemp:TADOQuery;
begin
QryTemp:=TADOQuery.Create(nil);
QryTemp.LockType:=ltReadOnly;
QryTemp.ConnectionString := AstDM.conAsset;
strSQL:= 'select a.*,b.DEPNA as LOCATNA, c.DEPNA as DEPNONA, d.SUPNA as SUPNONA, e.TEL as SUPTEL from '
' ASBASSM a '
' LEFT JOIN ASBDEPT b on b.DEPNO=a.LOCAT '
' LEFT JOIN ASBDEPT c on c.DEPNO=a.DEPNO '
' LEFT JOIN ASBSUPM d on d.SUPNO=a.SUPNO '
' LEFT JOIN ASBSUPM e on e.SUPNO=a.SUPNO '
' where (a.MODIMRK <> ''D'' or a.MODIMRK is null) ';
QryTemp.SQL.Text:=strSQL;
try
QryTemp.Open;
Application.CreateForm(TfrmASSET, frmASSET);
with frmASSET do
begin
qrCreator.Caption:= DMast.pSysInfo^.sSysAcc;
rptASSET.Dataset := QryTemp;
qrASSNO.Dataset := QryTemp;
qrASSNA.Dataset := QryTemp;
qrASSSN.Dataset := QryTemp;
qrTYPENO.Dataset := QryTemp;
qrSUPNA.Dataset := QryTemp;
qrTEL.Dataset := QryTemp;
qrGETDAY.Dataset := QryTemp;
qrLOCAT.Dataset := QryTemp;
qrDEPNA.Dataset := QryTemp;
qrMEMO.Dataset := QryTemp;
qrASSNO.DataField := QryTemp.Fieldbyname('ASSNO').AsString;
qrASSNA.DataField := QryTemp.Fieldbyname('ASSNA').AsString;
qrASSSN.DataField := QryTemp.Fieldbyname('ASSSN').AsString;
qrTYPENO.DataField := QryTemp.Fieldbyname('TYPENO').AsString;
qrSUPNA.DataField := QryTemp.Fieldbyname('SUPNONA').AsString;
qrTEL.DataField := QryTemp.Fieldbyname('SUPTEL').AsString;
qrGETDAY.DataField := QryTemp.Fieldbyname('GETDAY').AsString;
qrLOCAT.DataField := QryTemp.Fieldbyname('LOCATNA').AsString;
qrDEPNA.DataField := QryTemp.Fieldbyname('DEPNONA').AsString;
qrMEMO.DataField := QryTemp.Fieldbyname('AMEMO').AsString;
end;
if messagedlg('預覽報表畫面？',mtinformation,[mbyes,mbno],0)
=mryes then
frmASSET.rptAsset.Preview
else
frmASSET.rptAsset.Print ;
finally
QryTemp.Free;
end;

end;

TfrmASSET是報表的Layout
資料來源QryTemp是用ADOQuery的查詢結果
是資料來源的問題嗎？至少這段語法在SQL上是可以正確查出資料的.
嘗試找範例程式做參考，在QR元件上的設定上並沒有特殊差異，
稍早還出現ColumnHeader不顯示的插曲，
最後怎麼解決問題的，自已也搞不清了！
對QReport不熟悉......，請各位先進指導一下！
謝謝！

------
- 嵐 -

附加檔案：4ef2964bc976d_detail_no_data.jpg

改寫下列程式碼:

qrASSNO.DataField := 'ASSNO';
qrASSNA.DataField := 'ASSNA';
qrASSSN.DataField := 'ASSSN';
qrTYPENO.DataField := 'TYPENO';
qrSUPNA.DataField := 'SUPNONA';
qrTEL.DataField := 'SUPTEL';
qrGETDAY.DataField := 'GETDAY';
qrLOCAT.DataField := 'LOCATNA';
qrDEPNA.DataField := 'DEPNONA';
qrMEMO.DataField := 'AMEMO';

試看看....

原來DataField是直接給欄位名稱就好......
謝謝smallFox兄的指導！

------
- 嵐 -