21 / 22 / 10
Регистрация: 03.07.2014
Сообщений: 398
1

Наладить работу RDLC-отчета в проекте

31.12.2015, 21:41. Показов 819. Ответов 2
Метки нет (Все метки)

Помогите, люди добрые, побороть этого змия.

Пытаюсь наладить работу RDLC-отчета в проекте VB.NET

В окне FormRep расположен единственный элемент управления - ReportViewer.

Код создания окна следующий:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Module M_Rf_ac
 
    '=================================================================================================='
    '                                            PROCEDURE                                             ' 
    '                                  Создание/активация формы RF                                     '
    '=================================================================================================='
 
    Public Sub RF_ac()
        If Not FormRep_exist Then
            FormRep = New RF
 
            FormRep_exist = True
 
            FormRep.Show()
        End If
 
        FormRep.MdiParent = Main
 
        FormRep.Dock = DockStyle.Fill
        
        FormRep.WindowState = FormWindowState.Normal
        
        Call RF_ld()
        
        FormRep.Activate()
        
    End Sub
 
End Module

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Module M_Rf_Ld
 
    '=================================================================================================='
    '                                            PROCEDURE                                             ' 
    '                                  Создание/активация формы RF                                     '
    '=================================================================================================='
 
    Public Sub RF_Ld()
        Dim Fnm As String
        
        DTS_GRD.Clear()
        
        Fnm = Corr_Path(gCurDir) + "DTS_GRD.XML"
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, False, False, False)
 
        If DTS_GRD.Tables.Contains("REL") Then
            FormRep.RepViewer1.Reset()
            FormRep.RepViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
            FormRep.RepViewer1.LocalReport.ReportEmbeddedResource = "Report2.rdlc"
            FormRep.RepViewer1.LocalReport.ReportPath = "D:\A3.VB\PROJECT\Report2.rdlc"
            FormRep.RepViewer1.LocalReport.DataSources.Clear()
            FormRep.RepViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("REL", DTS_GRD.Tables("REL")))
 
            'MsgBox("LocalReport DataSources Count = " + CStr(FormRep.RepViewer1.LocalReport.DataSources.Count))
 
            FormRep.RepViewer1.RefreshReport()
        End If
       
    End Sub
 
End Module
Файл отчета - Report2.rdlc и XML схема источника данных - в RAR-архиве
Вложения
Тип файла: rar rdlc_xsd.rar (3.4 Кб, 4 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.12.2015, 21:41
Ответы с готовыми решениями:

Вывод RDLC отчета на экран браузера
Здравствуйте, есть rdlc отчет: Report1.rdlc Есть набор данных DataSet1.xsd? в нем подключение к...

Для отчета Report1.rdlc не указано определение
Подскажите пожалуйста в чем проблема: создаю проект Windows Form в 2010 студии, добавляю файл...

Можно ли засунуть файл отчета *.rdlc в ресурсы?
Специалисты, добрый день! Можно ли засунуть файл отчета ххххх.rdlc в ресурсы? Честно говоря...

Построение локального отчета Windows Form Report.rdlc
У меня в отчете должны данные выливаться из базы данных, для этого у меня есть DataSet который...

2
21 / 22 / 10
Регистрация: 03.07.2014
Сообщений: 398
31.12.2015, 21:44  [ТС] 2
Миниатюра с ошибкой:
Миниатюры
Наладить работу RDLC-отчета в проекте  
0
21 / 22 / 10
Регистрация: 03.07.2014
Сообщений: 398
01.01.2016, 20:53  [ТС] 3
Процедура чтения DataSet из XML-файла (банальная):

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Public Module M_Rd_DataSet_From_XML
 
    '=================================================================================================='
    '                                            PROCEDURE                                             ' 
    '                                   Чтение DataSet из XML-файла                                    '
    '=================================================================================================='
 
    Public Sub Rd_DataSet_From_XML(ByRef DT As DataSet, ByRef XMLnm As String, ByRef XSD_in As Boolean, ByRef Sh_Err As Boolean, ByRef Sh_Mes As Boolean)
        Dim XSDnm As String
        Dim XLen As Integer
        Dim _er As Boolean
 
        XMLnm = IO.Path.GetFullPath(XMLnm)
 
        If Sh_Err Then
            If Not IO.File.Exists(XMLNm) Then
                MsgBox("Файл отсутствует: " + XMLNm, MsgBoxStyle.Exclamation, "Ошибка")
                        
                Return
            End If
        End If
 
        XLen = XMLnm.Length()
 
        If XLen <= 5 Then
            If Sh_Err Then
                MsgBox("Имя XML-файла слишком короткое. Останов <" + XMLnm + ">", MsgBoxStyle.Exclamation, "Ошибка")
            End If
 
            Return
        End If
 
        XSDnm = XMLnm.Substring(0, XLen - 4) + ".XSD"
 
        _er = False
 
        Try
            If XSD_in Then
                DT.ReadXml(XMLnm, XmlReadMode.ReadSchema)
            Else
                DT.ReadXmlSchema(XSDnm)
                DT.ReadXml(XMLnm)
            End If
 
        Catch
            _er = True
 
        End Try
 
        If _er Then
            If Sh_Err Then
                MsgBox("Ошибка при чтении XML-файла.", MsgBoxStyle.Exclamation, "Ошибка")
            End If
        End If
 
    End Sub
 
End Module
Добавлено через 15 часов 58 минут
Проблема решена самостоятельно (похоже это уже стало скорее правилом, чем исключением).

Для интересующихся.

Необходимо было правильно указать ReportDataSource.Name = "DTS_GRD", то есть имя файла со схемой источника данных отчета, включенного в проект (DTS_GRD.XSD).

Добавлено через 7 часов 1 минуту
Похоже я ошибся.

В моем случае, когда источником данных отчета служит одна из таблиц многотабличного DataSet-а, в ReportDataSource.Name надо указывать имя DataSet-а.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.01.2016, 20:53

Наладить работу функции
Надо сделать так, чтобы функция работала, а я совсем не разобрался. #include &lt;iostream&gt;...

Не могу наладить работу с XPOSED
Привет. Работаю в Android Studio 2.3.3. Решила поучиться, по тестировать. Хочу через Xposed...

Никак не могу наладить работу плагина в Хроме
Хроме не проигырвает не какое видео. Лазил по сети и пробовал все варианты. Обновит палагины,...

Наладить работу двух макросов на один диапазон (конфликтуют)
Здравствуйте ув. форумчане. Нужна помощь. Есть два макроса который действую в одном и том же...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.