如何取出cxLookupComboBox多列的值.
A B C D
1 2 2 2
2 2 3 3
3 2 1 0
在下拉列表中选字段A 的值2时,希望B的2值自动填到EDIT1.TEXT中,C的值3自动填到EDIT2.TEXT中,D的值3自动填到EDIT3.TEXT中.请叫了.
[解决办法]
//注:我在数据表中加了一个主键
- Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);begin adoQuery1.Filter:='ID='+IntToStr(cxLookupComboBox1.EditValue); adoQuery1.Filtered:=True; Edit1.Text:=adoQuery1.FieldByName('B').AsString; Edit2.Text:=adoQuery1.FieldByName('C').AsString; adoQuery1.Filtered:=False;end;procedure TForm1.FormShow(Sender: TObject);begin with adoquery1 do begin close; sql.Clear; sql.Text:='select * from test'; open; end;end;