【结贴】这是什么错误该如何解决呀？**

danielduan123

我运行申请时，总是出如下的错误，是什么意思，可能是什么原因呢？
我在AssetTransferInfo.Info写了代码，
TAssetTransferInfo.DataSetTransferMainDataSetFieldChange(DataSet: TDataSet; Field: TDataField);
var AValue,BizURL: String;
TCOMMONUTILS.SetParamValue(Self.Context,TransferType,BizURL );

danielduan123

function TAssetTransferInfo.SetTransferType:String;
var
        BizURL,TransferType:String;
        SourceDept,DestiDept:String;
        SDept,DDept: Business.Model.Org.Torgunit;
begin
BizURL:='Biz:\SCGATXXGLPT\ZCGLXT\AssetTransferParams.ParamGroup\TransferType.Param';
        SourceDept:=DataSetTransferMainDataSet.FieldByName('AM_Source_DEPART').AsString;
        DestiDept:=DataSetTransferMainDataSet.FieldByName('AM_Dest_DEPART').AsString;
        SDept:=Business.Model.Org.OrgSys.OrgSystem.FindUnit(SourceDept,'','');
        DDept:=Business.Model.Org.OrgSys.OrgSystem.FindUnit(DestiDept,'','');
        if SourceDept=DestiDept then
            TransferType:='0'  //科内
        else if  SDept.Parent.ID=DDept.Parent.ID then
             TransferType:='1'  //科间
        else TransferType:='2'; //处间
        TCOMMONUTILS.SetParamValue(Self.Context,TransferType,BizURL );
        DataSetTransferMainDataSet.FieldByName('AM_TransferType').AsString:=TransferType;
        Result := TransferType;

end;
好象是  else if  SDept.Parent.ID=DDept.Parent.ID then这句会出错，请问该如何写？我就是想让两部门的的父亲相同，则表示关系是一处室的两个科，

atiger

你跟踪了是吧，那
SDept.Parent.ID  和 DDept.Parent.ID  的值分别是啥？帖出来看看

danielduan123

原来是空指针异常引起的，下次一定记得要先判断是否会为空，