السلام عليكم ورحمة الله وبركاته
ارجو من حضارتكم مساعدتى فى عرض بحث فى تقارير كريستال ريبورت
حيث انى الكريستال يعمل معى تمام بدون اى مشاكل ويعرض كل السجلات لكن عند البحث عن سجل محدد لا يعرضه ويعرض عوضا عنه كل التقارير ارجو المساعدة من حضارتكم
كود البحث
Dim Cry As New F004CR
Dim STrPath = ReadIni(FileIni, Section, Database, "")
Try
DbConnection = New OleDbConnection("Provider=microsoft.jet.oledb.4.0; data source='" & STrPath & "';jet oledb:database password=")
DbCommand = New OleDbCommand("Select * from Supplierandcustomer")
DbConnection.Open()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "")
End
End Try
Try
DbCommand.Connection = DbConnection
DbDataAdapter = New OleDb.OleDbDataAdapter("Select * from Supplierandcustomer Where AutoNumberSupplierandcustomer = " & F004.SupplierandcustomerTxt01.Text & "", DbConnection)
DbDataSet = New DataSet("Supplierandcustomer")
DbDataAdapter.Fill(DbDataSet, "Supplierandcustomer")
Cry.SetDataSource(DbDataSet)
CrystalReportViewer1.ReportSource = New F004CR
Catch ex As Exception
MsgBox(ex.Message)
Finally
DbConnection.Close()
End Tryانا متاكد ان كود البحث صح لكن الكريستال ريبورت يرفض عرض السجل المراد البحث عنه
ارجو المساعدة وشكرا
