动态设置DBGird的FiledName

DBGrid1->Columns->Items[0]->FieldName = ADODataSet1->Fields->Fields[0]->FieldName;
ADODataSet1->Fields->Fields[0]->DisplayWidth = 10 ;
ｏｒ

for( int i = 0 ; i < ADODataSet1->FieldCount ;  ++i )
  {
    DBGrid1->Columns->Add() ;
    DBGrid1->Columns->Items[i]->FieldName = ADODataSet1->Fields->Fields[i]->FieldName;
    ADODataSet1->Fields->Fields[i]->DisplayWidth = 10 ;
  }

另外一个报表问题

使用QRSubDetail組件，將QRSubDetail1->DateSet連接到子表即可