CrossTab-JoinEquilCells

Комментарии

• AlexTZ

  December 2006 отредактировано 03:38

  1) не принимается. объединение не может, да и не должно, работать с режимом plain cells. Объединяться могут только однотипные ячейки.
  2) у меня без ошибок. FR4 последний?
  
  - у столбика можно отключить линии рамки. Он не убирается.
  - лучше, чем есть, сделать не получится...
  
  1) попробую поправить.
  2) SuppressRepeated в кроссе не работает. Это для обычных отчетов.
  3) Боюсь, что никак.
• pasko

  December 2006 отредактировано December 2006

  1. С типами м.б. Вы правы, но у меня plain cells отключен, но ошибка иногда все равно вылетает. Видимо из-за исх.данных. По по-моему надо предотвратить возможность возникновения ошибки, тем более, что это ничем не грозит. Или сделать преобразование к string.
  2. Fr4 последний (вчерашний). Попробуйте увеличить у себя в примере этажность ячеки (у меня 6 этажей ). У меня 6 строк (дни недели)по 4 пары в день и 6 этажей в ячейке. Так вот, возникает ошибка, когда заполнен один день (6 этажей по 4 пары=24) и Row=24. (см рис)
  3.

  написал:

  Раньше обработка ячейки шла "по этажам" сверху вниз, что позволяло, например, окрашивать ВСЮ ячеку в зависимости от значения в самом верхнем "этаже". Теперь обработка идет слева-направо "по этажам". Как изменить что-то(цвет, шрифт..) 2-го "этажа" в зависимости от значения в 1-ом?

  Неужели никак нельзя просмотреть значение "этажа" над текущем?
  4. А уменьшить min ширину(<10 px) узкого столбца можно?
  5. Моя Реализация JoinEquilCells

  function TfrxCustomCrossView.IsEquilCells(ARow1, ACol1, ARow2, ACol2: Integer): boolean;
  var i:integer;
     Row: TfrxCrossRow;
     v1,v2:variant;
  begin
    Result := not((ARow1>=FRows.count) or (ARow1<0) or
              (ARow2>=FRows.count) or (ARow2<0) or
              (ACol1>=FColumns.count) or (ACol1<0) or
              (ACol2>=FColumns.count) or (ACol2<0)or
              (FRows[ARow1].FCellLevels<>FRows[ARow2].FCellLevels));
    if not Result then EXIT;
    Row := FRows[ARow1];
    for i:=0 to Row.FCellLevels-1 do
    begin
      v1:=GetValue(ARow1, ACol1, i);
      v2:=GetValue(ARow2, ACol2, i);
      if (v1<>v2){or VarIsNull(v1)or(VarType(v1)=varSingle)and(v1='')} then
      begin
       Result := false;
       BREAK;
      end;
     end;
  end;
  
        if JoinEqualCells then
          if RowItem.IsTotal or ColumnItem.IsTotal then
            SameMemos[CellIndex] := nil
          else if (SameMemos[CellIndex] = nil) or RowItem.IsTotal or ColumnItem.IsTotal or
            ( TVarData(THackMemoView(SameMemos[CellIndex]).Value).VType<>TVarData(THackMemoView(Memo).Value).VType )
            or
  // ----------МОИ
            ((TVarData(THackMemoView(SameMemos[CellIndex]).Value).VType=TVarData(THackMemoView(Memo).Value).VType)and
             (THackMemoView(SameMemos[CellIndex]).Value <> THackMemoView(Memo).Value)
             ) or
             not IsEquilCells(RowIndex div FCellLevels, i,RowIndex div FCellLevels, i-1)
  // ----------
              then