DBLookupComboBox动态绑定不显示？
var
query:TAdoQuery;
ds:TDataSource;
begin
query := TAdoQuery.Create(Self);
query.Connection := ADOConnection1
query.SQL.Add('select * from shopadmin where id <> 1');
query.Open;
ds := TDataSource.Create(Self);
ds.DataSet := query;
DBLookupComboBox1.ListSource := ds;
DBLookupComboBox1.ListField := 'shopname';
DBLookupComboBox1.KeyField := 'id';
end
