[Rabeea Qbaha]

اخي الجوكر شكرا جزيلا على مجهودك 

للافادة اصبح الكود في هذا الشكل 

PHP كود :

Dim ds As New DataSet
        Dim ID As String = GV.SelectedRows(0).Cells(0).Value

        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If

        SQLHistory = "SELECT SettingSys.CenterName, SettingSys.ManagerName, SettingSys.Abot,
        SettingSys.SystemPassword, SettingSys.CenterPhone, SettingSys.CenterPhone2, SettingSys.address,
        SettingSys.Dawn, phone_fix.ID, phone_fix.cust_name, phone_fix.phone_number, phone_fix.div_type,
        phone_fix.imei, phone_fix.phone_type, phone_fix.problem, phone_fix.parts_price,
        phone_fix.price, phone_fix.paid, phone_fix.status, phone_fix.fix_date, phone_fix.guar_date,
        phone_fix.nnote, phone_fix.EmployeeName, phone_fix.parts_b_price FROM phone_fix,
        SettingSys WHERE phone_fix.ID= 3"
        Dim cmd As New OleDbCommand(SQLHistory, Conn)
        cmd.Parameters.AddWithValue("@p1", ID)
        ds.Clear()

        Dim DataAdapterInvoices As New OleDbDataAdapter(cmd)
        DataAdapterInvoices.Fill(ds, "phone_fix")
        DataAdapterInvoices.Fill(ds, "SettingSys")
        Conn.Close()

        Dim rep As New Fix_phone_bill
        rep.SetDataSource(ds)

        Dim frm As New FormPrint
        frm.CrystalReportViewer1.ReportSource = rep
        frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "123"
        frm.ShowDialog()