如何取？

Question

我还想问个问题，数据表中有名称和代号两个字段，我想在界面上面combobox里输入名称时，取得该名称的代号，这个怎么取啊，有没有不用SQL语句的方法

Answer 1

那麼您用Table定位之後再取名稱即可

Answer 2

//ComboBox.AddObjectprocedure TForm1.FormCreate(Sender: TObject); 
begin 
  with QryCustType do 
  begin 
    Close; 
    sql.Clear; 
    sql.Text:='select * from CUSTTYPE'; 
    open; 
    while not Eof do 
    begin 
      ComboBox1.Items.AddObject(fieldbyname('name').AsString,Pointer(fieldbyname('custtypeid').AsInteger)); 
      next; 
    end; 
  end; 
end; 显示Value 
procedure TForm1.Button2Click(Sender: TObject); 
var 
  A_Value:integer; 
begin 
  A_Value:=integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); 
  Showmessage(inttostr(A_Value)); 
end; 

Answer 3

在窗体创建时加入如下代码:
with ADOQuery1 do
begin
  Close;
  SQL.Clear:
  SQL.Add('select id,name from table_name');
  Open;
  First;
  While not Eof do
  begin
    Combobox1.Items.Add(FieldByName('id').AsString);
    Combobox1.Values.Add(FieldByName('name').AsString);
    Next;
  end;
end;
取对应的id值:
id:= Combobox1.Values.Strings[Combobox1.ItemIndex];

Answer 4

更正一下:
    Combobox1.Items.Add(FieldByName('id').AsString); 
    Combobox1.Values.Add(FieldByName('name').AsString); 
这两句反了,应为:
    Combobox1.Items.Add(FieldByName('name').AsString); 
    Combobox1.Values.Add(FieldByName('id').AsString); 
这样 id:= Combobox1.Values.Strings[Combobox1.ItemIndex]; 
id 取的值才对