【结】[]关于在表格文档中如何动态的控制字段的只读属性

liyegj

在业务功能运行（表格文档）的过程中，当某一个字段发生变化时如何用代码实现，其它一些字段的只读属性？

liyegj

procedure TMainForm.DataSetBroker2DataChange(Sender: TObject; Field: TDataField);
begin
   if (Field <> nil) and (field.FieldName = 'GZLX') THEN
   begin

      if datasetbroker2.DataSet.FieldByName('GZLX').AsString = '岗薪工资' then
      begin

         datasetbroker2.DataSet.FieldByName('GJ').ReadOnly := True;
         datasetbroker2.DataSet.FieldByName('XJ').ReadOnly := True;
         datasetbroker2.DataSet.FieldByName('GX').ReadOnly := True;
         datasetbroker2.DataSet.FieldByName('BGXJ').ReadOnly := True;
      end;
      if datasetbroker2.DataSet.FieldByName('GZLX').AsString = '大学生工资' then
      begin
         datasetbroker2.DataSet.FieldByName('JX').ReadOnly := True;
         datasetbroker2.DataSet.FieldByName('FX').ReadOnly := True;
      end;
      if datasetbroker2.DataSet.FieldByName('GZLX').AsString = '外聘工资' then
      begin
         datasetbroker2.DataSet.FieldByName('YGZ').ReadOnly := True;
         datasetbroker2.DataSet.FieldByName('JBT').ReadOnly := True;
      end;
   end;
end;



上面的代码没起作用，字段还是只读的。

liyegj

是我把true和false 搞反了。