مشکل با کد گزارش گیری(stimulreport)

سلام
من کد زیر را برای گزارش گیری پویا نوشتم
اما با اجرای اون صفحه خالی Stimulsoft نمایش داده میشه
ممنون میشم ایرادشا بگید
البته معذرت میخام اینجا مطرح کردم
چون تو بخش خود نرم افزار مطرح کردم نتیجه نگرفتم

  DataSet Data = new DataSet();

            d = "select * from risiver";

            adap = new OleDbDataAdapter(d, con);

            adap.Fill(Data, "risiver");

            stiReport1.RegData(Data);

            stiReport1.Show();

من خودم اول با کوئری که میخوام یدونه datatable می سازم بعد پاسش میدم به گزارش. البته توی گزارش هم dataTable مشابه با همون فیلدها ساختم

نمونه کد:

Dim StiReport1 As New Stimulsoft.Report.StiReport()

 StiReport1.Load(Application.StartupPath & "/Reports/Rep1.mrt")

 dt = SQLTools.RunSQL("select * from tblMain", Me.CString)

 

در اینجا منظور از Me.CString همون کانکشن استرینگی هست که به دیتابیس وصل میشید.

در آخرین مرحله دیتاتیبل رو وصل می کنیم به گزارش

StiReport1.Dictionary.DataSources.Items(0).DataTab  le = dt

StiReport1.RegData("DataSource1", dt)

و در نهایت تابعی که کوئری رو میگیره و دیتاتیبل میده:

  Public Shared Function RunSQL(ByVal sql As String, ByVal cnnStr As String) As DataTable

            Dim selectConnection As New SqlConnection(cnnStr)

            Using connection2 As SqlConnection = selectConnection

                Dim adapter As New SqlDataAdapter(sql, selectConnection)

                If (Not adapter.SelectCommand Is Nothing) Then

                    adapter.SelectCommand.CommandTimeout = selectConnection.ConnectionTimeout

                End If

                Dim dataTable As New DataTable

                Try

                    selectConnection.Open()

                    adapter.Fill(dataTable)

                Catch exception As Exception

                    MessageBox.Show(exception.Message, "خطاي ارتباط با پايگاه داده", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)

                End Try

                selectConnection.Close()

                Return dataTable

            End Using

        End Function

منونم دوست عزیز
این آخرین کد منه که نتونستم جواب بگیرم:گیج:
اگه مقدور بود کمکم کنید

DataSet Data = newDataSet();

d = "select * from hack WHERE safahat='20000'";

adap = newOleDbDataAdapter(d,con);

 

DataTable dt = newDataTable();

adap.Fill(dt);

StiReport ss = newStiReport(); 

 

ss.RegData("Data", dt);

 

ss.Dictionary.DataSources.Items[0].DataTable = dt;

 

ss.Show();

منم همين مشكلو دارم.ايرادش چيه كه گزارش رو خالي نشون ميده؟؟

stiReport1.RegData(this.DataSet);

stiReport1.Compile();

stiReport1.Render(false);

stiViewerControl1.SetZoom(100);

stiViewerControl1.Localize();

stiViewerControl1.Refresh();