【搞定】【紧急】运行中修改字段查找属性报指针错误**

aDragon

错误信息【Access violation at address 027CBD2C in module 'CLRModel.bpl'. Read of address 0000002C】

代码案例：
procedure TGHTDOBJECTESTAPPLYBILLINFO.ProjectSortChange(Sender: TDataField); //立项类别变化改变项目名称输入方式
var
  lSort : string;
  lProjectField : TDataField;
  lProjField : TBizField;
begin
  lSort := Sender.AsString;
  lProjectField :=  Sender.DataSet.FieldByName('ProjectName');
  lProjField := DataSetGHTDObjectEstApplyBill.BizFieldByName('ProjectName');
  if (lSort = '1') or (lSort = '') then //计划内
  begin
    lProjField.LookupDef.Kind := TLookupKind.lkDataValues;
    lProjField.LookupDef.ValidateKind   := TLookupValidateKind.vkMust;
  end;
  if lSort = '2' then //计划外
  begin
    lProjField.LookupDef.Kind := TLookupKind.lkNone;
//    lProjField.LookupDef.ValidateKind   := TLookupValidateKind.vkAutoAdd;
  end;

end;

procedure TGHTDOBJECTESTAPPLYBILLINFO.DataSetGHTDObjectEstApplyBillAfterOpen(DataSet: TDataSet);
begin
  DataSet.FieldByName('Sort2').OnChange := ProjectSortChange;
end;

aDragon

选择计划外时，每输入一个字符就报错一次！

yancm

哪句代码报错？

星空下的守望者

不是代码出错 是录入数据时 就报错 录入一个字母都不行

yancm

检查一下当选1和2时，环境中的查找定义是否正常。

星空下的守望者

你可以把上面的代码组织一个环境测试一下 是编译以后 在运行的时候 录入数据是出现指针错误

yancm

晕了，才反应过来。你修改了查找定义后要重新关闭打开数据集阿大哥。

星空下的守望者

我的需求不能关闭数据集 也不能刷新

yancm

修改数据集上的定义后必须重新打开数据集。否则会报指针错。
此路不通。
调整需求或者换个设计思路吧。

aDragon

从业务角度上讲，这个需求是非常有意义的，请把这个问题作为需求提交给开发部！