求教:Tcombobox控件如何关连Tedit,使选择Tcom时Tedit自动出现对应的数据

Question

求教:
   Tcombobox控件如何关连Tedit,使选择Tcombobox时Tedit自动出现对应的数据
我的代码
begin
       if comGoods.Text <> '' then
        begin
                adoQur.SQL.Clear;
                adoQur.SQL.Add('select CarNumber from Goods where GoodsName=''' + comgoods.Text + '''');
                adoQur.Open;                if adoQur.RecordCount > 0 then
                begin
                        editdistance.Text := adoQur.Fields[0].AsString;
                end
                else
                begin
                        ShowMessage('..............);
                end;
        end;
end;
这样写对吗?为什么一运行就提示access参数不足,希望是1

Answer 1

先 showmessage(sql.text) 看你的sql語句是否正確.

Answer 2

如果仅仅是你标题的问题
在combobox的onchange事件中
edit1.text:=self.combobox1.text;

Answer 3

这样写是没有错的，看看是不是sql有问题