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

отредактировано 16:15 Раздел: FastReport .NET
Добрый день.

Каким способом можно сделать нумерацию строк матрицы (типа: № п/п). В примерах не нашел ни одной матрицы с нумерацией строк.

Спасибо.

Комментарии

  • отредактировано 16:15
    Здравствуйте,

    Посмотрите эту тему:
    http://fast-report.com/ru/forum/index.php?showtopic=7474
  • отредактировано 16:15
    AlexTZ написал: »
    Здравствуйте,

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

    Каким архиватором там сжато? winrar 3.9 не может :)
  • отредактировано 16:15
    WinRar'ом. Прикрепляю файл в виде .txt, после скачивания переименуйте в .frx.
  • отредактировано 16:15
    AlexTZ написал: »
    WinRar'ом. Прикрепляю файл в виде .txt, после скачивания переименуйте в .frx.

    Скачал. Спасибо!
  • отредактировано 16:15
    AlexTZ написал: »
    WinRar'ом. Прикрепляю файл в виде .txt, после скачивания переименуйте в .frx.

    А нельзя-ли весь скрипт на VB? Пли-и-и-из :) )
  • отредактировано 16:15
    У меня с VB проблемы (не знаю я его :)
    Попробую сконвертить код через рефлектор...
  • отредактировано 16:15
        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
    
  • отредактировано 16:15
    AlexTZ написал: »
    У меня с VB проблемы (не знаю я его :)
    Попробую сконвертить код через рефлектор...

    Спасибо. Изучаю результат... :)
  • отредактировано June 2010
    СПАСИБО!!

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

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.