VPF::Скрыть поле в отчете - Форум программистов

Woodlin

Дата 26.11.2009, 08:40 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 188
Регистрация: 15.7.2009
Где: Челябинская облас ть, г. Пласт

Репутация: 1
Всего: 1

Подскажите как можно в отчёте сделать так чтобы поле и прикреплённая к нему надпись становились видимыми при значении поля >1?

Akina

Дата 26.11.2009, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Модифицировать источник данных запроса и при значениях, которые надо скрыть, возвращать вместо значения Null.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Woodlin

Дата 26.11.2009, 09:20 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Akina,

Цитата(Akina @ 26.11.2009, 09:05

)

Модифицировать источник данных запроса и при значениях, которые надо скрыть, возвращать вместо значения Null.

если не трудно для туго соображающих поподробнее пожалуйста, я не пойму каким образом модифицированный источник данных может повлиять делать поле с надписью видимым или нет

Akina

Дата 26.11.2009, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Если Null - поле не видим. Или, если есть желание, в источнике данных поля пишите выражение с использованием IIF.

--------------------

bopoha

Дата 26.11.2009, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Woodlin, этот код можно написать в обработчике события OnPrint соответсвующей секции.
Например:

Код


Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    If PrintCount > 1 Then Exit Sub
    
    If Me.Pole1 > 1 Then
        Me.Pole2.Visible = False
    Else
        Me.Pole2.Visible = True
    End If
End Sub

З.Ы. Detail - в русском аксесе "Область данных"

--------------------

Как создавать приложения на MS Access

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »