[طـلال]

هذا الكود : 

كود :

 Dim RPO As New CRT_KAL


       DA = New SqlClient.SqlDataAdapter("SELECT * FROM [TBL_Shefbu] WHERE [Code_Shft]='" & TextBox1.Text & "'", CONDATABASE)
       DT = New DataTable
       DT.Clear()
       DA.Fill(DT)
       If DT.Rows.Count > 0 Then
           RPO.SetDataSource(DT)
           frm_allrepoerts.CrystalReportViewer1.Refresh()
           frm_allrepoerts.CrystalReportViewer1.ReportSource = RPO
           RPO.SetParameterValue(0, User_Login)
           'frm_allrepoerts.Show()

       Else
           MsgBox("لم يتم العثور على تقرير بهذا الرقم ", MsgBoxStyle.Critical, "عدم عثور بيانات")
       End If