Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Группиров...

Тема: Группировка в одной строке

15.06.2007 19:52:39

Сергей22

4 сообщения

Тема: Группировка в одной строке

Имеется таблица товар:
Имя товара___Сумма____НДС
молоко________10,00___0,25
хлеб___________5,00___0,05
кефир__________3,00___0,00
сахар_________10,00___0,00
соль___________1,00___0,01

задача вывести отчет в таком виде:
Имя товара___Сумма
молоко_______10,00
__в т.ч. ндс__0,25
хлеб__________5,00
__в т.ч. ндс__0,05
кефир_________3,00
сахар________10,00
соль_________1,00
__в т.ч. ндс 0,01

сложность задачи в том, что если ндс = 0,00, то сразу же со следующей строки шол следующий товар(без пропуска строки). Спасибо всем ответившим.

P.S. Общий раздел по отчетам
Автор: Сергей от 26.09.2001 15:14:14 Источник ...

15.06.2007 19:52:39

All

4316 сообщения

RE: Группировка в одной строке

1. Проблему можно решить путем отмены записей в отчете (см. пример 8 la_report.mdb) на этапе форматирования.

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
'Выбираем поле НДС и проверяем значения
Select Case Me.Section(acDetail).Controls("НДС")
Case Null 'Если нет НДС, то отключаем запись
Cancel = False
Case 0
Cancel = False 'Другой вариант отмены
Case Else
Cancel = True
End Select
End Sub

P.S. Общий раздел по отчетам
Автор: Виктор Конюков от 0:00:00 Источник ...

15.06.2007 19:52:39

Сергей22

4 сообщения

RE: Группировка в одной строке

Спасибо, что ответил. Если можно укажи ссылку la_report.mdb. У меня есть la_report.mdb но там примеры с 11 по 16.
Controls("НДС") - НДС - имя поля таблицы или имя объекта отчёта.Мне необходимо, если ндс=0.00 тогда не выводить. Я вижу это так:
Select Case Me.Section(acDetail).Controls("НДС")
Case 0
Cancel = False 'Другой вариант отмены
Case Else
Cancel = True
End Select
End Sub
Этот техст я разместил по Свойства всего отчета\События\Открытие\[Процедура обработки события]
Процедура приняла вид :
Private Sub Report_Open(Cancel As Integer) 'почемуто без FormatCount As Integer
Select Case Me.Section(acDetail).Controls("поле28")
Case 0
Cancel = False
Case Else
Cancel = True
End Select
End Sub
не работает. Что не так?

P.S. Общий раздел по отчетам
Автор: Сергей от 27.09.2001 12:59:19 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Группиров...

Поиск

Список форумов

Начало | Forums