看看这个函数,应该可以达到你的功能!!procedure Tform1.picklistadd(s:string); var i:integer ; begin with form1.query1 do begin close; sql.Clear ; sql.Add(s); open; if form1.query1.IsEmpty=false then begin form1.query1.First ; for i:=0 to form1.query1.RecordCount-1 do begin dbgrid1.Columns[2].PickList.Add(form1.query1.Fields[0].AsString); form1.query1.Next; end; end; end; end;
下拉框還差不多。dbgrid.column[i].picklist.item.add();
你要用菜單你用popu菜單就好了呀。
var i:integer ;
begin
with form1.query1 do
begin
close;
sql.Clear ;
sql.Add(s);
open;
if form1.query1.IsEmpty=false then
begin
form1.query1.First ;
for i:=0 to form1.query1.RecordCount-1 do
begin
dbgrid1.Columns[2].PickList.Add(form1.query1.Fields[0].AsString);
form1.query1.Next;
end;
end;
end;
end;