السلام عليكم ورحمة الله وبركاته أعضاء المنتدى الكرام
أحيكم على جهودكم وأتمنى دوام العطاء والنفع
لدي استفسار أرجوا أن يجد لديكم رد
لدي تطبيق
vb6 + sql server2000 + crystal report10
المطلوب إحضار بيانات من جدولين
كما يلي
جدول به ملخص السف لموظف
وجدول به تفاصيل السداد لهذه السلف
قمت بتصميم الريبورت وإحضار البيانات من الجدول الأول والحمد لله
المشكلة في إحضار البيانات من الجدول الثاني حيث قمت بعمل Subreport
والآن يقوم بعرض كافة البيانات من جدول الحركات وأريد أن يعرض فقط سجل الحركات المسددة لسلفة أختارها من الفورم مستندة إلى text24.text
وإليكم الكود الذي استخدمتة آملاً منك سعة الصدر ولكم جزيل الشكر
*******************************************************
On Error Resume Next
RS.Close
RR.Close
DB.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=employe"
'***********جملة ربط****************************
Me.Text1.Text = do_emp_payment.Text7.Text
Me.Text2.Text = do_emp_payment.Text24.Text
'***************الاستعلام من الجدول الأساسي********************
SQL = "SELECT * FROM [a_emp_do_payment] WHERE [id_emp] = '" & Trim(Text1.Text) & "' order by [id] DESC " ' "
On Error Resume Next
RS.Open SQL, DB, adOpenStatic, adLockReadOnly
'****************الاستعلام من الجدول الفرعي*************************
SQL1 = "SELECT * FROM [a_emp_follow_payment] WHERE [id_from_big] = '" & Text2.Text & "' " ' order by [id] DESC " ' "
On Error Resume Next
RR.Open SQL1, DB, adOpenStatic, adLockReadOnly
Report.Database.SetDataSource RS
aaaaa.Database.SetDataSource RR
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ReportSource = aaaaa
CRViewer1.ViewReport
CRViewer1.Zoom 100
Screen.MousePointer = vbDefault
Set Report = Nothing