Report печать перекрестной таблицы в отчете. / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Report печать перекрестной таблицы в отчете.

3 сообщений из 3, страница 1 из 1

Report печать перекрестной таблицы в отчете.

#32622674

Alexanderik

Участник

Сообщения: 135

Рейтинг: 0 / 0

Как можно распечатать перекрестую таблицу, если в зависимости от условий,
постоянно меняются ее поля, и количество столбцов ?

Есть ли в отчетах подобие свойсва. Datasheet. ?
чтобы не указывать и конкретизировать поля ?

...

Рейтинг:

0 / 0

27.07.2004, 11:07:39

| Ответить | Цитировать | Написать

Report печать перекрестной таблицы в отчете.

#32622757

Alexanderik

Участник

Сообщения: 135

Рейтинг: 0 / 0

Ура !! нашел !

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.

Private Sub Report_Open(Cancel As Integer)
    ' You didn't know how many columns, or what
    ' their names would be, until now.
    ' Fill in the label captions,
    ' and control ControlSources.
'

    
    Dim intColCount As Integer
    Dim intControlCount As Integer
    Dim i As Integer
    Dim strName As String
    
    On Error Resume Next
    
    Dim rst As ADODB.Recordset
    
    Set rst = New ADODB.Recordset
    rst.Open _
     Source:=Me.RecordSource, _
     ActiveConnection:=CurrentProject.Connection, _
     Options:=adCmdTable
    
    intColCount = rst.Fields.Count
    intControlCount = Me.Detail.Controls.Count
    
    If intControlCount < intColCount Then
        intColCount = intControlCount
    End If
    
    ' Fill in information for the necessary controls.
'

    For i =  1  To intColCount
        strName = rst.Fields(i -  1 ).Name
        Me.Controls("lblHeader" & i).Caption = strName
        Me.Controls("txtData" & i).ControlSource = strName
        Me.Controls("txtSum" & i).ControlSource = _
         "=Sum([" & strName & "])"
    Next i
    
    ' Hide the extra controls.
'
    For i = intColCount +  1  To intControlCount
        Me.Controls("txtData" & i).Visible = False
        Me.Controls("lblHeader" & i).Visible = False
        Me.Controls("txtSum" & i).Visible = False
    Next i
    
    ' Close the recordset.
'
    rst.Close
End Sub

...

Рейтинг:

0 / 0

27.07.2004, 11:29:19

| Ответить | Цитировать | Написать

Report печать перекрестной таблицы в отчете.

#32622769

Alexanderik

Участник

Сообщения: 135

Рейтинг: 0 / 0

Ура !! нашел !

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.

Private Sub Report_Open(Cancel As Integer)
    ' You didn't know how many columns, or what
    ' their names would be, until now.
    ' Fill in the label captions,
    ' and control ControlSources.
'

    
    Dim intColCount As Integer
    Dim intControlCount As Integer
    Dim i As Integer
    Dim strName As String
    
    On Error Resume Next
    
    Dim rst As ADODB.Recordset
    
    Set rst = New ADODB.Recordset
    rst.Open _
     Source:=Me.RecordSource, _
     ActiveConnection:=CurrentProject.Connection, _
     Options:=adCmdTable
    
    intColCount = rst.Fields.Count
    intControlCount = Me.Detail.Controls.Count
    
    If intControlCount < intColCount Then
        intColCount = intControlCount
    End If
    
    ' Fill in information for the necessary controls.
'

    For i =  1  To intColCount
        strName = rst.Fields(i -  1 ).Name
        Me.Controls("lblHeader" & i).Caption = strName
        Me.Controls("txtData" & i).ControlSource = strName
        Me.Controls("txtSum" & i).ControlSource = _
         "=Sum([" & strName & "])"
    Next i
    
    ' Hide the extra controls.
'
    For i = intColCount +  1  To intControlCount
        Me.Controls("txtData" & i).Visible = False
        Me.Controls("lblHeader" & i).Visible = False
        Me.Controls("txtSum" & i).Visible = False
    Next i
    
    ' Close the recordset.
'
    rst.Close
End Sub

...

Рейтинг:

0 / 0

27.07.2004, 11:34:01

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Report печать перекрестной таблицы в отчете.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&tid=1672921]:	0ms
get settings:	9ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	48ms
get topic data:	9ms
get forum data:	2ms
get page messages:	34ms
get tp. blocked users:	1ms
others:	198ms

total:	324ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы