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

ReSQL.ru

2.0.61

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

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

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

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

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

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

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

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

27.07.2004, 11:07:39

#32622674

Alexanderik

Участник

Сообщения: 135
Рейтинг: 0 / 0

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

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

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

...

Рейтинг:

0 / 0

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

27.07.2004, 11:29:19

#32622757

Alexanderik

Участник

Сообщения: 135
Рейтинг: 0 / 0

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

Ура !! нашел !

Код: 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

#32622769

Alexanderik

Участник

Сообщения: 135
Рейтинг: 0 / 0

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

Ура !! нашел !

Код: 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

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

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

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

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

start [/forum/topic.php?fid=45&mobile=1&tid=1672921]:	0ms
get settings:	5ms
get forum list:	8ms
check forum access:	2ms
check topic access:	2ms
track hit:	38ms
get topic data:	6ms
get forum data:	2ms
get page messages:	19ms
get tp. blocked users:	1ms
others:	191ms

total:	274ms

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