DBGrid(下拉框外部数据)

procedure Tyw_bjgl_new_fm.DBGridEh1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
  strcpbh:string;
  begin
  strcpbh:=dbgrideh1.Columns.Items[0].DisplayText;
      with DBGridEh1.Columns[10].pickList do
      begin
      clear;
      with dm_fm.Query_xl do
      begin
            close;
      sql.clear;
      sql.add('select * from cp_bzzl where cp_cpbh='''+strcpbh+'''');
      open;
      first;
      begin
      while not Eof do
      begin
      DBGridEh1.Columns[10].pickList.add(Fieldbyname('bz_bzlx').asstring);
      next;
      end;
      end;
      end;
      end;
      DM_FM.Query_xl.Active:=false;

 //计量单位
   begin
       with DBGridEh1.Columns[5].pickList do
      begin
      clear;
      with dm_fm.Query_xl do