我是一个新手,请高手请教.
我做了一个程序.一个主窗体:form1.一个报表窗体:form2
我在form2中放了一个QUICKREP1,再加了:"uses form1"语句.这样我就可以调用form1中的数据库了,如QUERY1.可是我预览后,只能看见一条记录,不会把我查到的所有记录全显示
在QUICKREP1中,我已在QUICKREP中把数据库指向form1中的QUERY1,可是还不行,这是怎么回事呢?请指教.有原程序我参考一下也可以或是解答.
谢谢了!
[email protected]
我做了一个程序.一个主窗体:form1.一个报表窗体:form2
我在form2中放了一个QUICKREP1,再加了:"uses form1"语句.这样我就可以调用form1中的数据库了,如QUERY1.可是我预览后,只能看见一条记录,不会把我查到的所有记录全显示
在QUICKREP1中,我已在QUICKREP中把数据库指向form1中的QUERY1,可是还不行,这是怎么回事呢?请指教.有原程序我参考一下也可以或是解答.
谢谢了!
[email protected]
with PrintDurgInTradeDiffRep do
begin
Dataset:=QryForPrint;//注意这里
QRDB1.DataSet:=QryForPrint;
QRDB1.DataField:='月';
QRDB2.DataSet:=QryForPrint;
QRDB2.DataField:='日';
QRDB3.DataSet:=QryForPrint;
QRDB3.DataField:='名称';
QRDB4.DataSet:=QryForPrint;
QRDB4.DataField:='产地';
Preview;
end;