【结贴】关于DataSetBroker的ONDataChange事件问题 ，急！

lotus

你好，代码如下：
procedure TKHXH.DataSetBrokerAREA1DataChange(Sender: TObject; Field: TDataField);
var
line_id,AREA_ID:string;
begin
if  DataSetBrokerAREA1.DataSet.Active=false then exit;
if Field <> nil then
  begin
      if Field.FieldName = 'AREA_ID' then      //台区号
      begin
           AREA_ID:=DataSetBrokerAREA1.DataSet.FieldByName('AREA_ID').AsString;
           line_id:=DataSetBrokerAREA1.DataSet.FieldByName('OWNER_LINE').AsString;
           DataSetBrokerLINE1.DataSet.Locate('line_id', Variants.VarArrayOf([LINE_ID]), [TLocateOption.loPartialKey]);
      end;
end;
end;

以上代码在语法检查、编译过程都是正确的，但运行功能时提示引用对像为空，调试可以看到Field对象为空。请问是偶以上代码错误还是什么问题？

zfang

楼主，你上面的代码想实现的是数据定位？
报错时代码停在什么位置？

lotus

没有报错，我只是在 if Field <> nil then这里设了个断点，调试查看到Field 位空对象，

zfang

哦，那没报错就没事吧。

lotus

问题是他不触发到 if Field.FieldName = 'AREA_ID' then      //台区号
      begin
           AREA_ID:=DataSetBrokerAREA1.DataSet.FieldByName('AREA_ID').AsString;
           line_id:=DataSetBrokerAREA1.DataSet.FieldByName('OWNER_LINE').AsString;
           DataSetBrokerLINE1.DataSet.Locate('line_id', Variants.VarArrayOf([LINE_ID]), [TLocateOption.loPartialKey]);
      end;
这段代码里面啊

zfang

请楼主把你要实现的需求描述一下吧
不清楚为什么要在这个事件上这么做。

lotus

按照你们的说法 我写了一段程序都不能被调用到 那我干嘛写啊

lotus

有两个数据集  A  B
当A 数据集中的某个字段aa变更了，B数据集中的bb也要跟着变

zfang

最初由 lotus 发布
[B]按照你们的说法 我写了一段程序都不能被调用到 那我干嘛写啊 [/B]

楼主，什么说法呢？
没执行到说明 此事件需要触发的条件没成立，也就是说你操作时没有修改数据。

lotus

现在程序运行到Field <> nil这里的时候，由于Field 为空对象，导致条件不能成立，目前我就是不明白我的Field 为什么会为空对象