【结贴】列名不明确

江振辉

这是我写的代码
procedure TQDHT.FIELD_HT_projectIDButtonClick(Sender: TObject);

var lResults:  array of String;
var lSelectResult: String;
var lProjectID: String;
var lContractorId: String;
var lProjectAmount: String;
var lTempProjectID: String;

begin
  lSelectResult := TXMXZ.GetProjectID(Context);
  if lSelectResult <> '' then
    begin
      lResults := lSelectResult.Split(['@']);
      lProjectID := lResults[0];    //这一行能取出数据
      lProjectAmount := lResults[1];
      lContractorId := lResults[2];
      if lProjectID <> '' then
        begin
          DataSetBZBXM.SQLFilter := 'ProjectId = ''' + lProjectID +'''';//过滤条件也正常，运行到这里就报下图异常
          DataSetBZBXM.SQLFiltered := true;
          DataSetBZBXM.Open;
          DataSetBZBXM.Edit;
          lTempProjectID := DataSetBZBXM.FieldByName('ProjectId').AsString;
          if lTempProjectID <> '' then
          begin
               lProjectAmount := DataSetBZBXM.FieldByName('MoneyAmount').AsString;
               lContractorId := DataSetBZBXM.FieldByName('invitedCon').AsString;
               DataSetHT.Edit;
               DataSetHT.FieldByName('projectID').AsString := lTempProjectID;
               DataSetHT.FieldByName('contractAmount').AsString := lProjectAmount;
               DataSetHT.FieldByName('contractorId').AsString := lContractorId;
          end
          else begin
             DataSetHT.Edit;
             DataSetHT.FieldByName('projectID').AsString := lProjectID;
             DataSetHT.FieldByName('contractAmount').AsString := lProjectAmount;
             DataSetHT.FieldByName('contractorId').AsString := lContractorId;
          end;
        end;
    end;
end;

江振辉

问题已解决，是因为我建了一个综合查询数据集，其中两张表里有同名的字段projectId