تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين
#1
Question 
الاخوه الكرام
السلام عليكم ورحمة وبركاته
هذا كود طبع كشوفات العملاء بدون إدخال رقم العميل بحث يطبع كل كشف عميل منفصل عن الاخر
السوال هنا
كيف اجعل الكود يقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة من جدولين ؟؟
الجدوال الثاني أسمه Sam1
1- Account_Number
2- Name


كود :
[php]
Private Sub Command1_Click()
    Dim i As Integer
    
    '' نقوم بقراءة جميع أرقام الحسابات بدون تكرار وحفظها في مصفوفة
    Set rs = db.OpenRecordset("SELECT DISTINCT Account_Number FROM sam2", 2)
        If rs.RecordCount > 0 Then
            rs.MoveLast
            rs.MoveFirst
            ReDim AccountNumbers(rs.RecordCount - 1)
            For i = 0 To rs.RecordCount - 1
                 AccountNumbers(i) = rs.Fields("Account_Number")
                 rs.MoveNext
            Next i
        End If
    rs.Close
    
    '' نعمل حلقة تكرار تمر على جميع عناصر المصفوفة التي تحتوي على أرقام الحسابات
    For i = 0 To UBound(AccountNumbers)
        ActiveReport1.DAODataControl1.DatabaseName = App.Path & "\db1.mdb"
        ActiveReport1.DAODataControl1.RecordSource = "Select Operation" & ",Date" & ",Account_Number" & ",Deposit" & ",Clouds" & ",(Select SUM(Deposit)-SUM(Clouds) From sam2 as Tbl Where Tbl.Account_Number=" & AccountNumbers(i) & " AND Tbl.Operation<=Tbn.Operation) as Balance" & " From sam2 as Tbn Where Account_Number=" & AccountNumbers(i) & " Order By Date,Operation ASC"
        ActiveReport1.PrintReport False
        Set ActiveReport1 = Nothing '' إغلاق الكائن
    Next i
    
End Sub
[/quote]

ارجو من الله المساعده والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد تشغيل برنامجي المرفق على جميع احجام الشاشات صعب الوصول 2 69 اليوم, 03:12 AM
آخر رد: صعب الوصول
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 87 أمس, 12:15 PM
آخر رد: larbihamri
  [vb6.0] سؤوال للأخ المشرف احمد منصور حول حقل الحسابات في1 MSHFlexGrid عبدالقادرعواد 5 99 03-05-17, 12:10 AM
آخر رد: Ahmed_Mansoor
  تكرار تشغيل الملفات الصوتية عبد الرحمن على 4 100 23-04-17, 09:53 PM
آخر رد: عبد الرحمن على
Question [سؤال] اريد اكواد حل المعادلات من جميع الدرجات لو سمحتو طارق++ 9 5,817 07-04-17, 01:06 PM
آخر رد: الخير طهوري
  [كود] يقوم بعملية فلترة Microsoft Visual Basic 6.0 3 103 18-03-17, 07:42 PM
آخر رد: sendbad100
  [vb6.0] احتاج مثال شجرة الحسابات كاملة iAwadop 4 165 05-03-17, 06:07 PM
آخر رد: iAwadop
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 108 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
Heart [vb6.0] استفسار - كيف اجعل قاعدة البيانات على الانترنت sl_dl1 1 144 14-02-17, 01:06 AM
آخر رد: Ahmed_Mansoor
  خطاء ارجو تصحيح الكود عمر سالم 5 191 10-02-17, 06:18 PM
آخر رد: sendbad100

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم