想了半天都没有解决的问题，望各位来帮助

Question

有两个表，表1字段：货号 厂商名称 
          表2字段：货号 厂商名称 单价
表2在输入数据时，当输入货号后，自动将表1中该货号的厂商名称带入表2的厂商名称中，然后输入单价，再保存，请问各位该如何实现？谢谢！

Answer 1

这个问题，实现方法很多。当在表二输入货号后，查询表一：Query1.Close;
Query1.SQL.Text := 'SELECT * FROM 表一 WHERE 贷号=' + 用户在表二输入的贷号;
Query1.Active := True;if Query1.RecordCount = 0 then begin
    ShowMessage('您输入的贷号不存在。');
end else begin
    Query2.FieldByName('贷号').Value := Query1.FieldByName('贷号').Value;
    '然后光标切换到单价或出现单价输入对话框；
    '验证数据后保存；
end;

Answer 2

把货号对应的厂商名称查出来，可以现放到一个edit控件里，然后转到单价所在控件，最后一起保存
可以把edit设成隐藏嘛

Answer 3

在onkeydown事件中,如果key=#13 then 在表1中选择并添加到edit中

Answer 4

var str:string;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 厂商名称  from 表一');
adoquery1.SQL.Add('where 货号 ='''+表二.货号+'''');
adoquery1.SQL.Add('order by ID DESC');
adoquery1.Open;
str:=adoquery1.fieldbyname('厂商名称  ').asstring;

Answer 5

YnewnewY(^nEWnEW^) 的话有些粗,不过说得有道理.

Answer 6

谢谢各位的帮助，小弟才学习DELPHI，提的问题很菜，不过我会努力学习的！