01-11-17, 03:19 PM
PHP كود :
DA = New SqlClient.SqlDataAdapter("SELECT * FROM [TBL_Shefbu] WHERE [Code_Shft]=@code", CONDATABASE)
DA.SelectCommand.Parameters.AddWithValue("@code", TextBox1.Text)
DT = New DataTable
DA.Fill(DT)
If DT.Rows.Count > 0 Then
Dim RPO As New CRT_KAL
RPO.SetDataSource(DT)
RPO.SetParameterValue("parm1", User_Login)
frm_allrepoerts.CrystalReportViewer1.ReportSource = RPO
frm_allrepoerts.Show()
Else
MsgBox("لم يتم العثور على تقرير بهذا الرقم ", MsgBoxStyle.Critical, "عدم عثور بيانات")
End If