while not ds_Edit.DataSet.Eof do
  begin
    cbbkind.Properties.Items.Add(ds_Edit.DataSet.FieldValues['kindname']);
    ds_Edit.DataSet.Next;
  end;通过上面几句向该控件添加项,但是我展开该控件下拉菜单选择值的时候却没有改变,真邪门!

解决方案 »

  1.   

    procedure TRes_Hr_JSD_F.GetJSCB;
    begin
      cb_cb.Properties.Items.Clear;
      cb_cb.Text:='';
      qry_BaseTemp.Close;
      qry_BaseTemp.SQL.Clear;
      qry_BaseTemp.SQL.Add( ' select CB from Res_User_Temp where CB is not NULL group by CB ' );
      qry_BaseTemp.Open;
      while not qry_BaseTemp.Eof do
      begin
        cb_cb.Properties.Items.Add(Trim(qry_BaseTemp.fieldbyname('CB').AsString));
        qry_BaseTemp.Next;
      end;
    end;