01.
Imports
System.Data
02.
Imports
System.Drawing
03.
Imports
System.Xml
04.
Imports
System.Windows.Forms.Control
05.
Imports
System.Data.SqlClient
06.
Imports
System.Windows.Forms.BindingSource
07.
Imports
System.Windows.Forms.Binding
08.
Imports
Microsoft.Reporting.WinForms
09.
Imports
Microsoft.Reporting.WinForms.ParameterState
10.
Imports
Microsoft.Reporting.WinForms.DrillthroughEventArgs
11.
Imports
Microsoft.Reporting.WinForms.ReportDataSource
12.
Imports
Microsoft.Reporting.WinForms.ReportDataSourceCollection
13.
Public
Class
Form1
14.
Public
datasource
As
Microsoft.Reporting.WinForms.ReportDataSource
15.
16.
Public
fileSql
As
New
Sql
17.
Private
Sub
Form1_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
18.
19.
Me
.ReportViewer1.RefreshReport()
20.
End
Sub
21.
22.
Private
Sub
Button1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
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.
59.
Me
.ReportViewer1.ProcessingMode = ProcessingMode.Local
60.
61.
Me
.ReportViewer1.LocalReport.ReportEmbeddedResource =
"GI.ServiceManager.ServiceReport.rdlc"
62.
63.
64.
65.
66.
67.
68.
Dim
jaa
As
String
=
"ddd"
69.
70.
Dim
rParam
As
ReportParameter() =
New
ReportParameter(1) {}
71.
rParam(0) =
New
ReportParameter(
"parajoe"
, jaa)
72.
73.
74.
Me
.ReportViewer1.LocalReport.SetParameters(rParam)
75.
76.
77.
Me
.ReportViewer1.RefreshReport()
78.
79.
80.
End
Sub
81.
End
Class