منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مع ان الكود المكتوب
cn.Execute(" drop view emp3 ")
cn.Execute(" create view emp3 as select emp.id_em , emp.sname , emp.emp , emp.depart , emp.mang , emp.salary , emp.ovartime , datails.p1 FROM datails INNER JOIN emp ON datails.id_emp = emp.id_em where emp.depart='" & ComboBox1.Text & "'")
Dim rep As New emp3
Dim t As Table
t = rep.Database.Tables("emp3")
t.Location = Application.StartupPath & "\emp.accdb"
Form4.CrystalReportViewer1.ReportSource = rep
Form4.ShowDialog(

)
البرنامج بمكتبة الادو كلاستيك
ارجو المساعدة