Нумерация строк матрицы

Комментарии

• AlexTZ

  June 2010 отредактировано 16:35

  Здравствуйте,
  
  Посмотрите эту тему:
  http://fast-report.com/ru/forum/index.php?showtopic=7474
• Simba

  June 2010 отредактировано 16:35

  AlexTZ написал: »

  Здравствуйте,
  
  Посмотрите эту тему:
  http://fast-report.com/ru/forum/index.php?showtopic=7474

  
  Каким архиватором там сжато? winrar 3.9 не может
• AlexTZ

  June 2010 отредактировано 16:35

  WinRar'ом. Прикрепляю файл в виде .txt, после скачивания переименуйте в .frx.
• Simba

  June 2010 отредактировано 16:35

  AlexTZ написал: »

  WinRar'ом. Прикрепляю файл в виде .txt, после скачивания переименуйте в .frx.

  
  Скачал. Спасибо!
• Simba

  June 2010 отредактировано 16:35

  AlexTZ написал: »

  WinRar'ом. Прикрепляю файл в виде .txt, после скачивания переименуйте в .frx.

  
  А нельзя-ли весь скрипт на VB? Пли-и-и-из )
• AlexTZ

  June 2010 отредактировано 16:35

  У меня с VB проблемы (не знаю я его
  Попробую сконвертить код через рефлектор...
• AlexTZ

  June 2010 отредактировано 16:35

      Private Sub Matrix1_AfterData(ByVal sender As Object, ByVal e As EventArgs)
        AddHandler Me.Matrix1.ResultTable.AfterData, New EventHandler(AddressOf Me.Matrix1ResultTable_AfterData)
      End Sub
  
      Private Sub Matrix1ResultTable_AfterData(ByVal sender As Object, ByVal e As EventArgs)
        Dim i As Integer
        Dim table As TableResult = TryCast(sender,TableResult)
        Dim newRow As New TableRow
        table.Rows.Insert(2, newRow)
        
        For i = 0 To table.ColumnCount - 1
          table.Item(i, 2).SetStyle(table.Item(0, 0))
          table.Item(i, 2).Text = IIf((i = 0), "#", i.ToString)
        Next i
        
        Dim newColumn As New TableColumn
        table.Columns.Insert(1, newColumn)
        
        For i = 0 To table.RowCount - 1
          table.Item(1, i).SetStyle(table.Item(0, 0))
          If (i > 2) Then
            table.Item(1, i).Text = (i - 2).ToString
          End If
        Next i
        
        table.Item(0, 0).ColSpan = 2
        table.Item(0, 2).ColSpan = 2
        table.FixedColumns = 2
        table.FixedRows = 3
      End Sub
  
• Simba

  June 2010 отредактировано 16:35

  AlexTZ написал: »

  У меня с VB проблемы (не знаю я его
  Попробую сконвертить код через рефлектор...

  
  Спасибо. Изучаю результат...
• Simba

  June 2010 отредактировано June 2010

  СПАСИБО!!
  
  Все получилось! Под себя поправил скрипт: строку убрал, оставил только колонку с нумерацией и сделал ее первой в таблице.