下面代码哪有问题？
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from DMESUser');
ADOQuery2.Open;
if ADOQuery2.FieldByName('GroupStr').AsString='A' then
begin
DBGrid_WIP.Columns.Items[7].ReadOnly:=False;
end
else
begin
DBGrid_WIP.Columns.Items[7].ReadOnly:=True;
end;
TSWIPList.Show;
end;

当权限为A是可以更改第7列，其它的不能更改第7列. 怎么都不能更改第7列了呢

[解决办法]
你的代码只是在此过程才有效
当ADOQuery2移动记录时，ReadOnly不变
所以可以把设置ReadOnly的代码放在ADOQuery2的AfterScroll事件里