combobox,listbox控件如何获得一个字段的两个值，在线。。。。。。

Question

比如从数据库中取出人员信息，ID  、name
如何设置这两个控件，让其显示name,而实际操作中取得对应的ID值。

Answer 1

table.open;
table.first;
for i:=0 to table.recordcount-1 do
begin
  combobox1.items.add(table.fieldbyname('编号').asstring+table.fieldbyname('科目').asstring);
  table.next;
end;

Answer 2

楼上没有看懂我的意思，在显示时只显示name，在操作时获取ID就和HTML中的<select>标签类似的，如果这两个控件无此功能，那么有没有其它变通的方法或代替的控件呢。

Answer 3

多放置一个combobox,让它不显示用来存储ID,变通的方法一箩筐,多想想就多学了...

Answer 4

to: solokey(永远的菜鸟-不是我不明白,世界变化快)有列子吗？

Answer 5

DELPHI的帮助中就有这样的例子
COPY下来给你，体会一下AddObject的用法
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
This example requires a TPageControl already on the form. Also, you must add pages to the TPageControl by right clicking and selecting New Page.  
The example code will allow the user to select the ActivePage property through selection of a ComboBox item.  During the form create, the Combo Box control is loaded with the names of each of the tabs, as well as the instance pointers to the corresponding tab.  When the user selects the Combo Box item, the associated TTabSheet object contained in the Combo Box Objects array is used to set the ActivePage property.procedure TForm1.FormCreate(Sender: TObject);var
  i: Integer;
begin
  for i := 0 to PageControl1.PageCount - 1 do
    ComboBox1.Items.AddObject(PageControl1.Pages[i].Name,
      PageControl1.Pages[i]);
  ComboBox1.ItemIndex := 0;
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if (Sender is TComboBox) then
    with (Sender as TComboBox) do
      PageControl1.ActivePage := TTabSheet(Items.Objects[ItemIndex]);end;