تقييم الموضوع :
  • 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]

ارجو من الله المساعده والله يحفظكم ويرعاكم

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [vb6.0] استفسار - كيف اجعل قاعدة البيانات على الانترنت sl_dl1 1 69 14-02-17, 01:06 AM
آخر رد: Ahmed_Mansoor
  خطاء ارجو تصحيح الكود عمر سالم 5 120 10-02-17, 06:18 PM
آخر رد: sendbad100
  اريد مجموعة سعر الكمية امباعة بتاريخ محدد في هذا الكود عمر سالم 5 162 31-01-17, 01:18 PM
آخر رد: ahmedabdelaliem
  [سؤال] عدم تكرار البيانات داخل الكمبو عمور2016 2 136 28-01-17, 02:20 PM
آخر رد: عمور2016
  [vb6.0] طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس copy77 11 274 27-01-17, 03:31 PM
آخر رد: copy77
  اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية allobaed 6 179 26-01-17, 11:55 AM
آخر رد: allobaed
Question [vb6.0] كيف اجعل عند الضغط على مفتاح Ctrl+ Alt + F3 من الوحة المفتايح يتم إغلاق الفورم ؟؟ Microformt 12 368 21-01-17, 11:16 AM
آخر رد: Microformt
  ما الخطء في هذا الكود bidaya 2 112 22-12-16, 05:09 AM
آخر رد: Ahmed_Mansoor
  طلب بسيط نقل أرقام؟؟؟ KamelArab 2 119 10-12-16, 06:45 PM
آخر رد: sendbad100
  مساعدة في تطبيق هذا الكود bidaya 0 149 06-12-16, 04:46 AM
آخر رد: bidaya

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


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