数据集中某字段变化时，其他字段随之改变的事件

atiger

有两种方法：

方法一：可以在DataSetBroker（或者DataSource）的OnDataChange 事件中实现，参考代码如下：

Procedure TJBXXWG.DataSetBrokerdsDataDataChange(Sender: TObject; Field: TDataField);
begin
  if (Field <> nil) and (Field.FieldName = 'ZD2') then
     dsData.DataSet.FieldByName('LR').AsString := '';
end;


方法二：&#61548;        用数据集的 OnFieldChange  事件，参考代码如下：

Procedure TSJJYSWJGXXX.DataSetdsDataFieldChange(DataSet: TDataSet; Field: TDataField);
begin
  if Field.FieldName = 'ZD2' then
     DataSet.FieldByName('LR').AsString := ' ';
end;



提示： 平台还提供了一些特性设置实现需求。例如，在字段改变时，修改其他字段的Visible等属性，推荐使用字段的“编辑属性”；如果是修改其他字段的值，推荐使用“自动填充属性”。