ali190
چهارشنبه 24 اسفند 1390, 08:52 صبح
باسلام و عرض خسته باشید خدمت همه دوستان عزیز
من در گزارش ساز Stimul ابتدا به دیتابیس وصل شدم و گزارشم رو درست کردم
http://img4up.com/up2/71096714929501578293.jpg
مشکلم الان اینجاست که من در دیتابیسم 20 رکورد رو ذخیره کردم
میخوام فقط یک رکرود رو فیلتر و در گزارش نمایش بدم
این کار رو با استفاده از کدهای زیر انجام میدم:
Imports System.Data.SqlClient
Imports Stimulsoft.Report
Public Class Form1
Private cnnString As String = "Data Source=server1;Initial Catalog=bank1;Integrated Security=True"
Private cnn As New SqlConnection(cnnString)
Private cmd As SqlCommand
Private ad As SqlDataAdapter
Private dt As DataSet
Dim StiReport1 As New Stimulsoft.Report.StiReport()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
StiReport1.Load(My.Application.Info.DirectoryPath & "\Report.mrt")
ad = New SqlDataAdapter("Select * from personel where id='1'", cnnString)
dt = New DataSet
ad.Fill(dt)
StiReport1.RegData(dt)
StiReport1.Compile()
StiReport1.Render()
StiReport1.Show()
End Sub
منتها به جای نمایش همون یه رکورد که من فیلترش کردم همه رکوردها نمایش داده میشه
ممنون میشم کمکم کنید تا بتونم این مشکل رو برطرف کنم
یاعلی
من در گزارش ساز Stimul ابتدا به دیتابیس وصل شدم و گزارشم رو درست کردم
http://img4up.com/up2/71096714929501578293.jpg
مشکلم الان اینجاست که من در دیتابیسم 20 رکورد رو ذخیره کردم
میخوام فقط یک رکرود رو فیلتر و در گزارش نمایش بدم
این کار رو با استفاده از کدهای زیر انجام میدم:
Imports System.Data.SqlClient
Imports Stimulsoft.Report
Public Class Form1
Private cnnString As String = "Data Source=server1;Initial Catalog=bank1;Integrated Security=True"
Private cnn As New SqlConnection(cnnString)
Private cmd As SqlCommand
Private ad As SqlDataAdapter
Private dt As DataSet
Dim StiReport1 As New Stimulsoft.Report.StiReport()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
StiReport1.Load(My.Application.Info.DirectoryPath & "\Report.mrt")
ad = New SqlDataAdapter("Select * from personel where id='1'", cnnString)
dt = New DataSet
ad.Fill(dt)
StiReport1.RegData(dt)
StiReport1.Compile()
StiReport1.Render()
StiReport1.Show()
End Sub
منتها به جای نمایش همون یه رکورد که من فیلترش کردم همه رکوردها نمایش داده میشه
ممنون میشم کمکم کنید تا بتونم این مشکل رو برطرف کنم
یاعلی