02-10-12, 09:59 PM
جرب عدل فى هذا الكود
[HTML] Try
Dim rep As New rep_name()
DataSet1.Clear()
Dim zx As New OleDbDataAdapter("select * from tabl_name where customer_name='" & Trim(textbox1.Text) & "'", conn
zx.Fill(DataSet1, "table_name")
If DataSet1.Tables(0).Rows.Count <> 0 Then
rep.Database.Tables(0).SetDataSource(DataSet1)
frm_repview.cry1.ReportSource = rep
rep.SetParameterValue(0, trim(TextBox1.Text))
))
frm_repview.cry1.Refresh()
frm_repview.Show()
Else[HTML] Try
Dim rep As New rep_name()
DataSet1.Clear()
Dim zx As New OleDbDataAdapter("select * from tabl_name where customer_name='" & Trim(textbox1.Text) & "'", conn
zx.Fill(DataSet1, "table_name")
If DataSet1.Tables(0).Rows.Count <> 0 Then
rep.Database.Tables(0).SetDataSource(DataSet1)
frm_repview.cry1.ReportSource = rep
rep.SetParameterValue(0, trim(TextBox1.Text))
))
frm_repview.cry1.Refresh()
frm_repview.Show()
MsgBox("No records available to show")
End If
Catch ex As Exception
End Try[/HTML]
