FastReport求助

ListToTree1的代码
function TfrmJCPackage.ListToTree1(ARow: integer): integer;
var
  x,i: integer;
begin
  x := -1;
  for i := 0 to PrintDataLst.Count -1 do
  begin
    inc(x);
    if x = ARow then
    begin
      x := i;
      Break;
    end;
  end;
  Result := x;
end;
调试的时候也是一直循环，frUserDataset1.RecNo的值一直为0