[atefkhalf2004]

PHP كود :

Dim sqlQRY2 As String
        Dim SqlDataAdapter As New OleDbDataAdapter
        Dim ds As New DataSet
        ds = New DataSet

        sqlQRY2 = "SELECT * FROM school   "
        SqlDataAdapter = New OleDbDataAdapter(sqlQRY2, objconn)
        SqlDataAdapter.Fill(ds, "school")

        Dim the5, the6, the7, the12, the13 As Double
        nnn1 = CInt(TextBox1.Text)

        ComboBox4.Text = nnn1
        nnn2 = (DateTimePicker1.Text)
        'nnn2 = Val(TextBox1.Text)
        nnn3 = (ComboBox1.Text)



        If objconn.State = ConnectionState.Closed Then objconn.Open()

        'Dim sqlQRY As String = "SELECT * FROM adinvodet where invono= " & nnn2 & " "
        Dim sqlQRY As String
        sqlQRY = "SELECT adinvodet.gname, adinvodet.company, adinvodet.invsun, adinvodet.makhzanid, adinvodet.makhzanname, Sum(adinvodet.invqu) AS invqu, adinvodet.invprc, adinvodet.invsal, adinvodet.makas           FROM(adinvodet)         WHERE(((adinvodet.invono) = " & (ComboBox4.Text) & "))GROUP BY adinvodet.gname, adinvodet.company, adinvodet.invsun, adinvodet.makhzanid, adinvodet.makhzanname, adinvodet.invprc, adinvodet.invsal, adinvodet.makas, adinvodet.itcod, adinvodet.invunit, adinvodet.invqu, adinvodet.invprc, adinvodet.invsal, adinvodet.makas  "
        'Dim dp As New OleDbDataAdapter
        'ds = New DataSet
        Dp = New OleDbDataAdapter(sqlQRY, objconn)
        Dp.Fill(ds, "adinvodet")
 
        Dim rds = New ReportDataSource("salseDataSet1_adinvodet", ds.Tables("adinvodet")) ' قم بتغيير "DataSet1" إلى اسم مصدر البيانات الخاص بك
        Form46.ReportViewer1.LocalReport.DataSources.Clear()
        Form46.ReportViewer1.LocalReport.DataSources.Add(rds)
        Form46.ReportViewer1.LocalReport.ReportEmbeddedResource = "ismail.Report2.rdlc"

        Dim paramList As New Generic.List(Of ReportParameter)
        paramList.Add(New ReportParameter("part1", ComboBox1.Text))
        paramList.Add(New ReportParameter("part2", TextBox1.Text))
        paramList.Add(New ReportParameter("part3", DateTimePicker1.Text))
        paramList.Add(New ReportParameter("part4", theschool))
        Form46.ReportViewer1.LocalReport.SetParameters(paramList)
        Form46.ReportViewer1.Refresh()