powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Срочно!! Запрос!! Help!!
5 сообщений из 5, страница 1 из 1
Срочно!! Запрос!! Help!!
    #32856131
leper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вообщем есть таблица с количеством товара:

barcode quantity
50001 3
50002 4

Нужно напечатать штрих-коды, дату в репорт беру из базы, поэтому надо чтобы было так
barcode
50001
50001
50001
50002
50002
50002
50002
т.е. разложить базу по количеству штрихов - кто знает как с этим боротся?
Заранее спасибо!
...
Рейтинг: 0 / 0
Срочно!! Запрос!! Help!!
    #32856141
SinnerXP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не совсем понятно что надоть....
подробней опиши что нуно...
...
Рейтинг: 0 / 0
Срочно!! Запрос!! Help!!
    #32856168
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
временная таблица + цикл по основной + Insert
...
Рейтинг: 0 / 0
Срочно!! Запрос!! Help!!
    #32856174
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Заводим таблицу t из 1-го поля (f) и 10 записей
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 0 
 1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 

И пишем примерно такой запрос:
Код: plaintext
1.
select q.* from QuantityTable as q, t as t1, t as t2, ..., t as tN
where q.quantity<(t1.f + t2.f* 10  + ... + tN.f*( 10 ^(n- 1 )))
, где n подбираем для максимально возможного количества штрих-кодов.
При N=1 это 9, 2 - 99, 3 - 999 и т.д.

ЗЫ. Обязательно прочитайте http://www.sql.ru/forum/actualthread.aspx?tid=139276
Особенно касательно предварительного просмотра... :)
...
Рейтинг: 0 / 0
Срочно!! Запрос!! Help!!
    #32856184
lobodava
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ещё вариант.

В отчёте рисуем два поля для barcode и для quantity.
Называем поле для quantity как tboQuantity и делаем его невидимым.
В модуль отчета пишем вот так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private mintCnt As Integer

Private Sub Report_Open(Cancel As Integer)
    mintCnt =  1 
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    If mintCnt = Me!tboQuantity Then
        Me.MoveLayout = True
        Me.NextRecord = True
        Me.PrintSection = True
        
        mintCnt =  1 
    Else
        Me.MoveLayout = True
        Me.NextRecord = False
        Me.PrintSection = True
        
        mintCnt = mintCnt +  1 
    End If
End Sub
Нужно ещё проконтролировать, чтобы в свойствах отчета напротив событий On Open у отчета и On Print у раздела "данные" проставилось [Event Procedure]

и всё работает...
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Срочно!! Запрос!! Help!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]