VPF::Вернуть свойства полей - Форум программистов

Mona

Дата 13.11.2007, 17:18 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

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

Не должно такого быть. Сам постоянно скрываю/отображаю элементы для каждой страницы. И печататеся так, как и отображается.
Код в студию.

Код слишком большой.
Вы создайте простой отчет на таблице из 10 записей (сгруппированных). В области данных одно поле. В нем данные - любое поле из таблицы. В нижнем колонтитуле Поле2 - свободное.

Код


Option Compare Database
Dim kol As Integer

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
 kol = kol + 1
End Sub

Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
Поле2= kol
End Sub

На просмотре в Поле2 - 10, а что на бумаге?

Это сообщение отредактировал(а) Akina - 13.11.2007, 18:22

Akina

Дата 13.11.2007, 17:29 (ссылка)

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

Загрузка ...

Советчик

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

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

Цитата(Mona @ 13.11.2007, 18:18

)

Код слишком большой.
Вы создайте простой отчет на таблице из 10 записей (сгруппированных). В области данных одно поле. В нем данные - любое поле из таблицы. В нижнем колонтитуле Поле2 - свободное.

Только не он, а ВЫ проделайте это, и присоедините полученную БД, упакованную ЗИПом, к своему сообщению.

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

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

Mona

Дата 13.11.2007, 17:58 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

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

Цитата

Код в студию.

Мой код слишком большой. Создайте простой отчет на таблице из 10 записей. В области данных одно поле. Данные для него - любое поле из таблицы. В нижнем колонтитуле одно поле - свободное.

Код


Dim kol As Integer
Private Sub Report_Open(Cancel As Integer)
 kol = 0
End Sub

Private Sub Нижнийколонтитул_Format(Cancel As Integer, FormatCount As Integer)
Поле2 = kol
End Sub

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
 kol = kol + 1
End Sub

На просмотре в Поле2 - 10, а на печати(или в снимке) - что?

Я только что методом тыка вроде решила это

Код


Private Sub Нижнийколонтитул_Format(Cancel As Integer, FormatCount As Integer)
Поле2 = kol
If FormatCount = 1 Then kol = 0
End Sub

И в своем вроде вернула так же. Но не знаю действительно ли решила проблему.

Это сообщение отредактировал(а) Akina - 13.11.2007, 18:22

Akina

Дата 13.11.2007, 18:23 (ссылка)

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

Загрузка ...

Советчик

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

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

M
Akina

Пользуйтесь тегом "Код"!

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

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