修改计划中心信息时出错？**

dupit

只是换了打//的代码,
static procedure TPLANDEFINEINFO.GetTypeNameList(AContext: TContext;
  const AList: TStrings; const AGroupID: string);
var
  lSQLDataSet: TSQLDataSet;
  lPlanTypeInfo: TPlanTypeInfo;
  lPlanTypeList: TPlanTypeList;
begin
  lPlanTypeList := TPlanDefineInfo.Instance.PlanTypeList;

  lSQLDataSet := TSQLDataSet.Create(AContext.Owner);
  try
//add by amin_mao 2007.1.26
//    lSQLDataSet.DataBase.URL := TPlanDefineInfo.Instance.DataSetPlanType.DataBase.URL;
//    lSQLDataSet.SQL.Text := TPlanDefineInfo.Instance.DataSetPlanType.SQL.Text;
    lSQLDataSet.DataBase.URL := TPlanDefineInfo.Instance.DataSetXJHLX.DataBase.URL;
    lSQLDataSet.SQL.Text := TPlanDefineInfo.Instance.DataSetXJHLX.SQL.Text;
    lSQLDataSet.Open;

    while not lSQLDataSet.Eof do
    begin
//      lPlanTypeInfo := lPlanTypeList.Find(lSQLDataSet.FieldByName('FCODE').AsString);
      lPlanTypeInfo := lPlanTypeList.Find(lSQLDataSet.FieldByName('FLMC').AsString);
      if lPlanTypeInfo <> nil then
        AList.AddObject(lPlanTypeInfo.TypeID + '=' + lPlanTypeInfo.TypeName, lPlanTypeInfo);

      lSQLDataSet.Next;
    end;
  finally
    lSQLDataSet.Free;
  end;
end;

提示如图错误:

aPanther

编译出错的对象！
都需要编译。