var s: TStringList; .... begin s := TStringList.Create; s.Add('dfsffd'); s.Add('2'); s.Add('1245678'); DBGrid1.Columns[1].PickList := s; s.Free; end; 这样,就可以把'dfsffd'、‘2'、'1245678'加到下拉表中 不知道,你是不是这个意思?
设置DBGrid1.Columns[i].PickList属性,类型为TStrings.i是整形,做个循环吧. 如果用query什么的控件就用select Pname from table1 where Pname='*****' 取得产品名称什么的,再用个循环把值取出来给PickList,这不就行了.
s: TStringList;
....
begin
s := TStringList.Create;
s.Add('dfsffd');
s.Add('2');
s.Add('1245678');
DBGrid1.Columns[1].PickList := s;
s.Free;
end;
这样,就可以把'dfsffd'、‘2'、'1245678'加到下拉表中
不知道,你是不是这个意思?
如果用query什么的控件就用select Pname from table1 where Pname='*****' 取得产品名称什么的,再用个循环把值取出来给PickList,这不就行了.
的动态加载方法不错,试试吧