想实现用户选择报表项目

Question

我的form1上有一个dbgrid，我想实现用户点击某一列的列名时，报表内就增加一个列，怎么实现呢？

Answer 1

那要看你報表是什麽了，水晶報表估計沒辦法，delphi自帶的倒是可能，你可以設置報表的數據來源Query的Fields屬性,添加你點擊的列名即可

Answer 2

form2.QuickRep1.DataSet:=form1.DBGrid1.DataSource.DataSet;
  form2.QRDBText1.DataSet:=form1.DBGrid1.DataSource.DataSet;
  form2.QRDBText1.DataField:=form1.DBGrid1.Columns[1].FieldName;
  form2.QRDBText2.DataSet:=form1.DBGrid1.DataSource.DataSet;
  form2.QRDBText2.DataField:=form1.DBGrid1.Columns[2].FieldName;
  form2.QRDBText3.DataSet:=form1.DBGrid1.DataSource.DataSet;
  form2.QRDBText3.DataField:=form1.DBGrid1.Columns[6].FieldName;
  form2.QRDBText4.DataSet:=form1.DBGrid1.DataSource.DataSet;
  form2.QRDBText4.DataField:=form1.DBGrid1.Columns[35].FieldName;
  form2.QRDBText5.DataSet:=form1.DBGrid1.DataSource.DataSet;
  form2.QRDBText5.DataField:=form1.DBGrid1.Columns[61].FieldName;
  form2.QRDBText6.DataSet:=form1.DBGrid1.DataSource.DataSet;
  form2.QRDBText6.DataField:=form1.DBGrid1.Columns[59].FieldName;
  form2.QRDBText7.DataSet:=form1.DBGrid1.DataSource.DataSet;
  form2.QRDBText7.DataField:=form1.DBGrid1.Columns[60].FieldName;
  form2.Show;
我在form2上做了报表，这样写完之后为什么报表上只显示字段名，没有字段数据啊？