九乡新闻网饥饿鲨世界鳄冰鱼:dbgrideh只读录入
来源：百度文库 编辑：九乡新闻网 时间：2024/04/30 02:59:18
view plaincopy to clipboardprint?
with DataModule2.AqryWorkShop do
begin
Close;
sql.clear;
sql.Add('select * from workshop');
Open;
First;
DBGridEh2.Columns[7].PickList.clear;
while not eof do
begin
DBGridEh2.Columns[7].PickList.Add(fieldbyname('shop').AsString);
//多出如下这句操作
DBGridEh2.Columns[7].KeyList.Add(fieldbyname('shop').AsString);
next;
end;
end;
DBGridEh2.Columns[7].ReadOnly := true;