急~求高手,delphi打印報表問題~

組織構架表

項目經理:X-名稱-X X-------聯系方式------X 項目副經理:X-名稱-X X------聯系方式-----X
  施工員:X-名稱-X X------聯系方式-------X 質檢員:X-名稱-X X------聯系方式-----X
  材料員:X-名稱-X X------聯系方式-------X 安全員:X-名稱-X X------聯系方式-----X
  庫管員:X-名稱-X X-------聯系方式------X 核算員:X-名稱-X X------聯系方式-----X
  資料員:X-名稱-X X-------聯系方式------X 技朮員:X-名稱-X X------聯系方式-----X
-------------------------------------------------------------------------------------
班組編號 班組名稱 班組類別 班組長姓名 聯系方式
-------------------------------------------------------------------------------------
X------X X-----------------------X X------------X X--------X X-------------------X
X------X X-----------------------X X------------X X--------X X-------------------X
X------X X-----------------------X X------------X X--------X X-------------------X

注意:上面是兩列,下面是一列

分成两个数据集就可以了（以FastReport为例是可以实现的）。

我是打算這樣做的,你幫我解決下面這個問題吧

下面是我的代碼,為什么沒有實現下拉菜單呢?缺少了什么東西嗎?要不要設置什么屬性值呢?急~
procedure TSPS_OrganizationInFormA.dbg_ass_workgroupColEnter(
  Sender: TObject);
begin
with ads_temp do
  begin
  if dbg_ass_workgroup.SelectedIndex=2 then
  begin
  Close;
  CommandText:=' select ''[''+REPLACE(class_code,'' '','''')+'']''+REPLACE(class_name,'' '','''') as group_type'
  +' from chd_code ';
  Open;
  dbg_ass_workgroup.Columns[2].PickList.Clear;
  while not Eof do
  begin
  dbg_ass_workgroup.Columns[2].PickList.Add(FieldbyName('group_type').AsString);
  next;
  end;
  end;
  end;
end;