PDA

View Full Version : سوال: نمایش اطلاعات در Report Viewer



mojtaba_kz
جمعه 27 مرداد 1391, 22:31 عصر
سلام علیکم

من برای گزارش گیری از کامپوننت Ms Report Viewer استفاده می کنم


برای اینکه با کد نویسی بگم فلان رکورد رو در Report Viewer نمایش بده چه کار باید بکنم

به روش ساخت دیتا ست انجام دادم مشکل داشت مثلا می گفتم آخرین رکورد رو نشون بده در جواب یکی مونده به آخری را نشون بده همیشه

مثلا اگر الان دیتا یی ثبت میشه با شماره 5 و روی دکمه چاپ کلیک میکنم رکورد 4 رو نشون میشده مگر اینکه کلا از برنامه خارج بشم بعدش میتونم اون آخرین رکورد رو ببینم



اگر امکانش هست به روش کد نویسی راهنمایی بفرمایید

*****فوری خواهشن

barnamenevisforme
جمعه 17 شهریور 1391, 15:33 عصر
سلام
این یه کد به زبان vb.net هست،با گرفتن الگو از اون میتونید مشکلتون رو حل کنید.
Dim connstring As String = "Data Source=SERVERname;Initial Catalog=dbname;Integrated Security=True"
Dim selectcommandstring As String = ""
selectcommandstring = "SELECT * FROM Table1 WHERE " & table1_items_collection.Item(ComboBox1.SelectedInd ex + 1) & " = @p1"
Dim resultda As New System.Data.SqlClient.SqlDataAdapter
Dim myconnection As New System.Data.SqlClient.SqlConnection(connstring)
Dim mycommand As New System.Data.SqlClient.SqlCommand(selectcommandstri ng, myconnection)
resultda.SelectCommand = mycommand

mycommand.Parameters.Add("@p1", SqlDbType.VarChar).Value = TextBox1.Text

myconnection.Open()
Dim resultds As New System.Data.DataSet
Me.SEARCHDATASET.Table1.Clear()
resultda.Fill(Me.SEARCHDATASET.Table1)
Dim table_row As DataRow
Dim row_number As Integer = 1
For Each table_row In SEARCHDATASET.Table1
'حذف تمام سطر ها بجز سطر آخر
If row_number < SEARCHDATASET.Table1.Rows.Count Then
table_row.Delete()
End If
row_number = row_number + 1
Next
SEARCHDATASET.Table1.AcceptChanges()
Me.ReportViewer1.RefreshReport()