EXCELの落しこみに関して (ID:10332)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

一カ所間違えていました。
最初の行が出力されていませんでした。

--------------------------------−
      FOR i := 1 TO Query1.RecordCount DO  
         //while Not Query1.Eofの方がお勧め
      begin
        //追加
        if (bunrui<>Query1.Fields[0].AsString) then
        begin
          if bunrui <> '' then
          begin
            Cells.Item[aRow,1].Value:='小計';
            Cells.Item[aRow,3].Value:=IntToStr(shokei[1]);
            Cells.Item[aRow,4].Value:=IntToStr(shokei[2]);
            Inc(aRow,2);
          end;
          bunrui   := Query1.Fields[0].AsString;
          //これを追加します。
          Cells.Item[aRow,1].Value := Query1.Fields[0].AsString;
          shokei[1] := 0;
          shokei[2] := 0;
        //end else      ここを修正してください。
        end;            //これにしてください。
        FOR j := 1 to Query1.Fields.Count DO
        begin
          Cells.Item[aRow,j + 1].Value := Query1.Fields[j].AsString;
        end;
        shokei[1] := shokei[1] + Query1.Fields[2].AsInteger;
        shokei[2] := shokei[2] + Query1.Fields[3].AsInteger;
        gokei[1]  := gokei[1] + Query1.Fields[2].AsInteger;
        gokei[2]  := gokei[2] + Query1.Fields[3].AsInteger;
        Query1.Next;
        Inc(aRow);
      end;
      if (shokei[1] > 0) or (shokei[2] > 0) then
      begin
        Cells.Item[aRow,1].Value:='小計';
        Cells.Item[aRow,3].Value:=IntToStr(shokei[1]);
        Cells.Item[aRow,4].Value:=IntToStr(shokei[2]);
        Inc(aRow,2);
      end;
      Cells.Item[aRow,1].Value:='合計';
      Cells.Item[aRow,3].Value:=IntToStr(gokei[1]);
      Cells.Item[aRow,4].Value:=IntToStr(gokei[2]);
--------------------------------
でいかがでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る