[عبدالمؤمن]

(14-01-18, 07:54 PM)Amir_Alzubidy كتب : السلام عليكم و رحمة الله و بركاته 
قم بكتابة هذا الكود لايجاد حاصل مجموع عمود في ليست فيو 

PHP كود :

Private Sub Get_Col_Total()
Dim L_Index As Long
    Dim Total_Sum As Long
    
    For L_Index = 1 To ListView1.ListItems.Count
        Total_Sum = Total_Sum + ListView1.ListItems(L_Index).SubItems(1)
    Next
    
    Label_Total = Total_Sum
End Sub 


ملاحظة : .SubItems(1) هي رقم العمود المراد تحصيل المجموع منه - يمكنك تغييره الى رقم العمود المناسب

و من ثم تعديل كود Data_Get ليصبح بهذا الشكل : 

PHP كود :

Private Sub Data_Get()
   On Error Resume Next ': Err.Clear
   Adodc1.CommandType = adCmdText
   Adodc1.Refres
       
   Dim XItem As ListItem
   ListView1.ListItems.Clear

   Do While Not Adodc1.Recordset.EOF
        Set XItem = ListView1.ListItems.Add(, , Adodc1.Recordset(0) & vbNullString)
            XItem.SubItems(1) = Adodc1.Recordset(1) & vbNullString
            XItem.SubItems(2) = Adodc1.Recordset(2) & vbNullString
            XItem.SubItems(3) = Adodc1.Recordset(3) & vbNullString
            XItem.SubItems(4) = Adodc1.Recordset(4) & vbNullString
            XItem.SubItems(5) = Adodc1.Recordset(5) & vbNullString
            XItem.SubItems(6) = Adodc1.Recordset(6) & vbNullString
            Adodc1.Recordset.MoveNext
   Loop
   
   Call Get_Col_Total
End Sub 


بمعنى آخر : 
قم باستدعاء كود الجمع في اي مكان تريده بمناداته بهذا الشكل : 

PHP كود :

Call Get_Col_Total 


بالتوفيق

عمت مساءاً أخي العزيز أريد تطبيق نفس الطريقة على داتا قرايد فيو والناتج في تيكت بوكس حفظك الله