如何动态选定数据库字段名后,实现动态生成打印报表.

alabel:tqrlabel;//放在pageheader上
atext:tqrdbtext;//放在detailband上
//printform为控件quickrep1所在的表单
    alabel:=tqrlabel.create(printform);
    alabel.parent:=printform.pageheaderband1;
    alabel.caption:=
    alabel.autosize:=true;
    alabel.left:=
    alabel.top:=
    atext:=tqrdbtext.create(printform);
    atext.parent:=printform.detailband1;
    atext.dataset:=dbform.p_table;
    atext.datafield:=fields[0].asstring;