Cross отчет, связь с базой

Комментарии

• Zajigaev

  May 2009 отредактировано 21:51

  не может быть, чтобы ни у кого не возникало потребности изменять атрибуты ячейки в кросс отчете в зависимости значения другого поля базы данных.
  Ау!
  спасибо
• RhinoFC Новосибирск

  May 2009 отредактировано 21:51

  Zajigaev написал: »

  не может быть, чтобы ни у кого не возникало потребности изменять атрибуты ячейки в кросс отчете в зависимости значения другого поля базы данных.
  Ау!
  спасибо

  
  Ну, к сожалению, я до конца помочь здесь не смогу. У меня как раз такой потребности не возникало. Да и с кроссами работаю очень редко. Но кое-что могу сказать, может поможет.
  Кросс строится таким образом:
  1) Открывается датасет
  2) Строится матрица значений. Здесь идёт пробег по датасету.
  3) Рисуется кросс-таб по подготовленной матрице. Здесь уже датасет не юзается.
  
  Таким образом, когда кросс-таб печатается, датасет уже не используется. Курсор стоит себе спокойненько на какой-то записи и всё. Так что надо изыскивать какие-то другие пути для решения этой проблемы.
• Дмитрий1982

  May 2009 отредактировано 21:51

  Возник подобный вопрос, тоже пока ничего не могу придумать. Ячейка должна окрашиваться в зависимости от нахождения строки в таблице, не участвующей в кросс отчете. те нужно как то сделать окрашивание ячейки в зависимости от результатов запроса. Например
  если select count(id) from spisok_form_n where client= строка кросс отчета) and name_form = столбец кросс отчета)
  то ячейка окрашивается
• madmech

  May 2009 отредактировано 21:51

  У меня такая проблема возникла некотрое время назад, решил следующим образом:

  procedure Tr_DBCrossOnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  begin                                                 
    if (ColumnIndex < N1) and (RowIndex < N1) then
      begin              
        if ColumnIndex = RowIndex then
          Memo.Color := clTeal;
        if Value <> Null then                                                                      
          begin
            if (a_Sq[N1 * ColumnIndex + RowIndex] > 0) and             
               (a_Sq[N1 * RowIndex + ColumnIndex] > 0) then
                 Memo.Color := $aaeebf;                                           
            if (a_Sq[N1 * ColumnIndex + RowIndex] = 0) and
               (a_Sq[N1 * RowIndex + ColumnIndex] = 0) then
                 Memo.Color := $96f1f6;                                           
            if (a_Sq[N1 * ColumnIndex + RowIndex] < 0) and
               (a_Sq[N1 * RowIndex + ColumnIndex] < 0) then
                 Memo.Color := $d7d7ff;      
          end;                                    
      end;                                                 
  end;
  

  Вариантный одномерный массив a_Sq передаю из самого Дельфи следующим образом:

  var  a_Sq_Var: variant; 
  // Подготовка для печати
  begin    
     a_Sq_Var := VarArrayCreate([0, N1 * N1 - 1], varShortint);
      k := 0;
      l := 0;
      for j := 0 to N1 * N1 - 1 do
        begin
          a_Sq_Var[j] := a_Sq[k, l];   
          Inc(l);                      
          if l = N1 then            
            begin                     
              l := 0;
              Inc(k);
            end;
        end;
     PrintReport.Script.Variables['a_Sq'] := a_Sq_Var;
  end;
  

  Ищите и обрящете!