【搞定】[请求] 关于事件的问题**

ccyy0112

现在 现面的代码可以执行 设置了断点 程序没有问题 但是所有的数据都还为只读，ELSE语句也能通过 但是数据字段仍然为只读
procedure TGDZCTZ.DataSetBroker1AfterScroll(DataSet: TDataSet);
begin
     if(datasetbroker1.DataSet.FieldByName('sftj').AsString = '1') then
     begin
         datasetbroker1.DataSet.FieldByName('bgbm').ReadOnly := true;
     end
     else
     begin
          datasetbroker1.DataSet.FieldByName('bgbm').ReadOnly := false;
     end;

end;

jiahaiminghr

1、首先，这个代码设置只读是针对数据集的所有记录的

2、在AfterScroll中写代码，并不是针对每条记录单独设置只读
  而是在记录滚动时，每次都重新设置整个字段的只读。

ccyy0112

但是只要我选择了 其他不等于1的字段时候 就应该 执行ELSE语句 现在ELSE语句是执行 但是字段仍然为只读

jiahaiminghr

字段应该不是只读了

你是否表现控件也被设置成只读了。

ccyy0112

没有 我只是 只读了部分 在数据集中固定只读字段

jiahaiminghr

楼主，你可以设置断点，或者用showmsg的方法，确认一下字段的控件的只读状态。

ccyy0112

断点设置了 程序运行没有问题
showmsg的方法 如何作 不太明白能所的 再详细些吗

jiahaiminghr

楼主，如果你的需求只是：
在当前记录sftj字段为1时，bjbm只读。

那么，还是使用10楼提供的方法吧。那样效率更高，而且实现起来非常简单。

在bjbm字段上定义编辑属性-只读这个属性上，定义表达式就可以了。

ccyy0112

不是这样的 是比如我有 20 个字段 sftj字段为1时 其中当前行的 10个字段为只读

jiahaiminghr

是这样的，
你要为这10个字段分别设置编辑属性－只读 的表达式。