mytstr:tstringlist; begin myTstr:=tstringlist.Create; mytstr.Clear; mytstr.Add(' '); with Myadoqry do begin sql.clear; sql.add('select * from tablename '); open; while not eof do begin mytstr.Add(fieldbyname('fieldname').asstring); next; end; end; dbgrid1.Columns[10].PickList :=MyTstr; .... .....====================== 这是我的一个苯办法
begin myTstr:=tstringlist.Create;
mytstr.Clear;
mytstr.Add(' ');
with Myadoqry do begin
sql.clear;
sql.add('select * from tablename ');
open;
while not eof do
begin
mytstr.Add(fieldbyname('fieldname').asstring);
next;
end;
end;
dbgrid1.Columns[10].PickList :=MyTstr;
....
.....======================
这是我的一个苯办法
dxgrid设置属性就可以了