24-10-17, 01:44 AM
كود :
Me.DataTable1TableAdapter.Fill(Me.dbvDataSet.DataTable1)
Me.ReportViewer1.RefreshReport()
Dim Text_String As Integer = (folder.txtnamper.Text - 1)
Me.DataTable1BindingSource.Filter = "(ID=" & Text_String & ")"
Me.Width = ReportViewer1.Width
Me.ReportViewer1.RefreshReport()