[سلامات]

(18-08-17, 11:32 PM)محمود بكرى كتب :

كود :

If Sqlconn.State = ConnectionState.Open Then
                   Sqlconn.Close()
else
             Sqlconn.Open()
              End If
               Dim sql As String = " SELECT  * FROM Table  WHERE age " & Colog.Text.Trim & " " & (T4.Text.Trim) & " "
               Dim comm As New SqlCommand(sql, Sqlconn)
               Dim da As New SqlDataAdapter(comm)
               Dim dt As New DataTable
               da.Fill(dt)
               Dim rpt As New reportcrystal,fr as new Form_REPORTING
               rpt.SetDataSource(dt)
               fr.CrystalReportViewer.ReportSource = rpt
               fr.Show()

جرب هذا الكود

نفس المشكلة اخ محمود