krunal25 Ответов: 2

Настраиваемый формат отчета Crystal в vb.net


Всем привет,

В настоящее время я работаю над проектом создания табеля успеваемости учащихся для школы.
Здесь мне нужно сгенерировать отчет crystal в динамической форме, который объясняется ниже:

1 - Есть категория combobox, в которой есть много категорий
2 - на выбор категории приходят предметы, которых может быть больше одного.
3 - на выбор предмета приходит описание того, что предметов у них также может быть несколько.

Теперь, когда я выбираю одну категорию, то есть "часть 1 - Б", есть 5 предметов , и в каждом предмете есть 7 описаний.

Теперь мне нужен динамический и табличный формат генерации отчетов crystal.
то есть вот так.

Категория-Часть 1-Б

Тема 1 Тема 2 Тема 3
Описание 1 Описание 1 Описание 1
Описание 2 Описание 2 Описание 2
Описание 3 Описание 3 Описание 3
.... ... ...


Теперь эти предметы, описание динамичны, так что я могу сделать элементы управления в crystal report статичными..

Пожалуйста, помогите мне, что делать в этом случае, я действительно застрял, пожалуйста, помогите мне..


Спасибо и с уважением,
Krunal Panchal

2 Ответов

Рейтинг:
1

Member 13449182

Private Sub BtnPreview_Click(отправитель как система.Объект, как система.EventArgs) Обрабатывает BtnPreview.Щелчок
Если CboItemGroup.SelectedIndex >= 0 тогда

Если Рбталл.Проверено = Истина Тогда

Dim AllItemsDA As OleDbDataAdapter = New OleDbDataAdapter ("Select Distinct * From stkrpt Where I_Group = '" & CboItemGroup.Text & "'Order By I_Code", DBConnect)
Дим AllItemsDS Как Набор Данных = Новый Набор Данных

AllItemsDA. Fill(AllItemsDS, " stkrpt")

DGVPreview.Источник Данных = AllItemsDS
DGVPreview.DataMember = " stkrpt"

AllItemsReport.SetDataSource(AllItemsDS. Tables ("stkrpt"))

Окончательный.CRVItemsStock. ReportSource = AllItemsReport
Окончательный.CRVItemsStock.Ширина = Окончательная.Ширина
Окончательный.CRVItemsStock.Высота = Окончательная.Высота

Окончательный.CRVItemsStock.Освежить()

Final. MdiParent = MDIParent1

Финал.StartPosition = FormStartPosition.CenterScreen
Окончательный.WindowState = FormWindowState. Maximized

Меня.Скрыть()
Финал.Показать()

Окончательный.PrintForm1.PrintAction = Печать.PrintAction.Принтопринтер
Окончательный.PrintForm1.Печать()
Конец, Если
Конец, Если
Конец Подводной Лодки


Рейтинг:
0

Ganesan Natarajan

Привет,

можете ли вы дать структуру таблицы ur

только тогда мы сможем продолжить...