الجدول الاول عباره عن الجدول المخزن به معلومات الصيانة phone_fix
والجدول ال ٢ SettingSys هو جدول فيه معلومات المنشئه من الاسم رقم الهاتف الموقع الى اخ ...
قمت بجلب الجداول ال ٢ من ال data source في ال dataset
وقمت بوضع كل شئ في المكان المناسب، عند التشغيل واستدعاء ال report
تظهر معلومات الصيانة فقك بدون المعلومات من جدول SettingSys
هذا الكود المستعمل
PHP كود :
Dim ID As String = GV.SelectedRows(0).Cells(0).Value
If Conn.State = ConnectionState.Closed Then Conn.Open() End If
SQLHistory = "SELECT * FROM phone_fix WHERE ID = @ID" Dim cmd As New OleDbCommand(SQLHistory, Conn) cmd.Parameters.AddWithValue("@ID", ID)
DataSet_phone_fix.Clear()
Dim DataAdapterInvoices As New OleDbDataAdapter(cmd) DataAdapterInvoices.Fill(DataSet_phone_fix, "phone_fix")
Conn.Close()
Dim dataset_sett As New DataSet If Conn.State = ConnectionState.Closed Then Conn.Open() End If
Dim cmd2 As New OleDbCommand("SELECT * FROM SettingSys WHERE ID = @ID", Conn) cmd2.Parameters.AddWithValue("@ID", "1")
dataset_sett.Clear()
Dim DataAdaptersetti As New OleDbDataAdapter(cmd2) DataAdaptersetti.Fill(dataset_sett, "SettingSys")
Conn.Close()
Dim rep As New Fix_phone_bill rep.SetDataSource(DataSet_phone_fix) rep.SetDataSource(dataset_sett)
Dim frm As New FormPrint frm.CrystalReportViewer1.ReportSource = rep frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "123" frm.ShowDialog()
21-11-18, 11:59 AM (آخر تعديل لهذه المشاركة : 21-11-18, 12:12 PM {2} بواسطة DOX.1.)
أنت بحاجة إلى جملة أستعلام واحده فقط للجدوليين
كود :
SELECT phone_fix.id, phone_fix.dd, phone_fix.ff, phone_fix.gg, SettingSys.id AS Expr1, SettingSys.clum1, SettingSys.clum2 FROM phone_fix INNER JOIN SettingSys ON phone_fix.id = SettingSys.id where phone_fix.id like '1' and SettingSys.id like '1'
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()