ActiveReports GroupValue как быть?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
shady
Постоялец
Постоялец
 
Сообщения: 461
Зарегистрирован: 09.11.2005 (Ср) 11:03

ActiveReports GroupValue как быть?

Сообщение shady » 26.09.2006 (Вт) 14:34

при установке например:
Код: Выделить всё
GroupHeader1.GroupValue = adoWBill.Recordset("WayBillsID").Value

всегда, сначала печатается секция PageHeader и все GroupHeader, пустая секция Detail, и GroupFooter с PageFooter соответственно. Причем в секцию GroupFooter 16457 - это число берется из первой записи следующей накладной.
При этом выставлено свойство NewPage - After у секции GroupFooter
Вложения
WBill.JPG
WBill.JPG (122.28 Кб) Просмотров: 154

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Re: ActiveReports GroupValue как быть?

Сообщение Andrey Fedorov » 26.09.2006 (Вт) 15:16

shady писал(а):при установке например:
Код: Выделить всё
GroupHeader1.GroupValue = adoWBill.Recordset("WayBillsID").Value

всегда, сначала печатается секция PageHeader и все GroupHeader, пустая секция Detail, и GroupFooter с PageFooter соответственно. Причем в секцию GroupFooter 16457 - это число берется из первой записи следующей накладной.
При этом выставлено свойство NewPage - After у секции GroupFooter


Что-то ты явно накрутил...

Код: Выделить всё
GroupHeader1.GroupValue = doWBill.Recordset("WayBillsID").Value


У тебя что, так в коде и написано?

Просто укажи нужный DataField в соответствующем свойстве у GroupHeader в дизайнере. И свойство NewPage оставь по умолчанию.
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

shady
Постоялец
Постоялец
 
Сообщения: 461
Зарегистрирован: 09.11.2005 (Ср) 11:03

Сообщение shady » 27.09.2006 (Ср) 7:59

У тебя что, так в коде и написано?

ну, да, пробывал, в helpe так написано

Код: Выделить всё
Private Sub Detail_Format()
   ' Set the unbound group breaking value
   ghCountry.GroupValue = dcRptData.Recordset.Fields("Country").Value
End Sub


Просто укажи нужный DataField в соответствующем свойстве у GroupHeader

так и сделал, только не в дизайнере, а кодом, но сысла это не меняет, работает как нужно.

Только теперь другой вопрос.
А можно в секцию Detail вставить "вручную" дополнительную строку?
Мне нужно это для Транспортных расходов, если они отдельной строкой, то нужно эту строку "пририсовать", если нет, то не рисовать.
Я пока сделал это в секции GroupFooter и делаю
Код: Выделить всё
.Field_N_.Visible = False
для всех полей которые нужно показывать. Ну и соответственно придется все остальные fieldы и labelы подтягивать вверх...

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 27.09.2006 (Ср) 8:14

shady писал(а):так и сделал, только не в дизайнере, а кодом, но сысла это не меняет, работает как нужно.


Смысла писать что-либо кодом в простеньком отчете совершенно нет.
По крайней мере в дизайнере нужно было лишь имя поля ручками набрать, а тут строку кода - мне было бы лень...

shady писал(а):Только теперь другой вопрос.
А можно в секцию Detail вставить "вручную" дополнительную строку?
Мне нужно это для Транспортных расходов, если они отдельной строкой, то нужно эту строку "пририсовать", если нет, то не рисовать.


Не совсем понятно что хочешь получить в итоге... И что значит "отдельной строкой"...

Они у тебя не в Recordset-e с Detail накладной?
Ну дык добавь их туда, чтобы все упростить...

shady писал(а):Я пока сделал это в секции GroupFooter и делаю
Код: Выделить всё
.Field_N_.Visible = False
для всех полей которые нужно показывать. Ну и соответственно придется все остальные fieldы и labelы подтягивать вверх...
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

shady
Постоялец
Постоялец
 
Сообщения: 461
Зарегистрирован: 09.11.2005 (Ср) 11:03

Сообщение shady » 27.09.2006 (Ср) 8:48

Они у тебя не в Recordset-e с Detail накладной?

Да (но я их выбираю из другой таблицы, т.е. если в деталях например продукции 6 позиций, то и сумма транспортных повторяется 6 раз)
Ну дык добавь их туда, чтобы все упростить...

Не совсем понял?

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 27.09.2006 (Ср) 8:52

shady писал(а):
Они у тебя не в Recordset-e с Detail накладной?

Да (но я их выбираю из другой таблицы, т.е. если в деталях например продукции 6 позиций, то и сумма транспортных повторяется 6 раз)
Ну дык добавь их туда, чтобы все упростить...

Не совсем понял?


SELECT .. FROM ИзОднойТаблицы ...
UNION ALL
SELECT .. FROM ИзДругойТаблицы ...
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

shady
Постоялец
Постоялец
 
Сообщения: 461
Зарегистрирован: 09.11.2005 (Ср) 11:03

Сообщение shady » 27.09.2006 (Ср) 9:22

SELECT .. FROM ИзОднойТаблицы ...
UNION ALL
SELECT .. FROM ИзДругойТаблицы ...

Но это применимо только к одной накладной. А если напримербудет несколько накладных, в которых наприер через одну, есть транспортные расходы?

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 27.09.2006 (Ср) 9:27

shady писал(а):
SELECT .. FROM ИзОднойТаблицы ...
UNION ALL
SELECT .. FROM ИзДругойТаблицы ...

Но это применимо только к одной накладной. А если напримербудет несколько накладных, в которых наприер через одну, есть транспортные расходы?


Ну и что?
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

shady
Постоялец
Постоялец
 
Сообщения: 461
Зарегистрирован: 09.11.2005 (Ср) 11:03

Сообщение shady » 27.09.2006 (Ср) 10:11

Код: Выделить всё
SELECT     dbo.Bills.ID, dbo.Bills.IDBill, dbo.Bills.IDTMC, dbo.Bills.CrDate, dbo.Bills.NDSPrice, dbo.Bills.Comm, dbo.Bills.IDTR, Ru.Name AS RegName,
                      Ra.Name AS RegNameAct, Tu.Name AS TownCust, Ta.Name AS TownCustAct, Tu.ID AS IDTown, Ta.ID AS IDTownAct, Tu.IDReg, Ta.IDReg AS IDregAct,
                      Cu.ID AS IDCust, Cu.Name AS NameCust, Cu.INN, Cu.KPP, Cu.Adress, Cu.Phone, Ca.ID AS IDCustAct, Ca.Name AS NameCustAct, Ca.KPP AS KPPAct,
                      Ca.Adress AS AdressAct, Ca.Phone AS PhoneAct, Ca.INN AS INNAct, dbo.Bills.CheckB, STR(Tu.PIndex) AS PIndex, STR(Ta.PIndex) AS PIndexAct
FROM         dbo.Bills INNER JOIN
                      dbo.Customers AS Cu ON dbo.Bills.IDCust = Cu.ID INNER JOIN
                      dbo.Customers AS Ca ON dbo.Bills.IDPay = Ca.ID INNER JOIN
                      dbo.Towns AS Tu ON Cu.IDTown = Tu.ID INNER JOIN
                      dbo.Towns AS Ta ON Ca.IDActTown = Ta.ID INNER JOIN
                      dbo.Regions AS Ru ON Tu.IDReg = Ru.ID INNER JOIN
                      dbo.Regions AS Ra ON Ta.IDReg = Ra.ID

и как я это смогу использовать с моим запросом?

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 27.09.2006 (Ср) 10:36

shady писал(а):и как я это смогу использовать с моим запросом?


Да точно так-же - результаты разных запросов прекрасно объединяются через UNION ALL. Я пока не вижу у тебя проблемы...
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 144

    TopList