تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] مجموع : حاصل جمع عمود في ListView1 بواسطة Adodc1
#1
Lightbulb 
السلام عليكم ، مطلوب معرفة حاصل جمع عمود في حالة بدء تحميل فورم او عند الاختيارات
كود :
Public Function LoadOfAdodcListView()
      On Error Resume Next
      Adodc1.RecordSource = "select * from tblEmployee"
      Call Data_Get
End Function
كود :
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
End Sub

عند قيام الاختييارات مثل الكود التالى
كود :
Private Sub cmdAdodcListViewSrBox_Click()
   On Error Resume Next
   Adodc1.RecordSource = "select * from tblEmployee where Sr Between " & Me.txtAdodcListViewSrBox1.Text & " AND " & Me.txtAdodcListViewSrBox2.Text & " Order By Sr"
   Call Data_Get
End Sub
الرد }}}
تم الشكر بواسطة: عبدالمؤمن
#2
السلام عليكم و رحمة الله و بركاته 
قم بكتابة هذا الكود لايجاد حاصل مجموع عمود في ليست فيو 
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 

بالتوفيق
الرد }}}
تم الشكر بواسطة: princeofislam
#3
السلام عليكم
جزاك الله خير .. الكود اشتغل
هل ممكن تطبيق الكود ده على DataGrid1 بدل من ListView1 وكيف ؟
الرد }}}
تم الشكر بواسطة:
#4
استفد من هذا الكود :
PHP كود :
Private Sub Get_dblSum()
Dim dblSum As Double
  
Me
.Adodc1.Recordset.MoveFirst
Do While Not Me.Adodc1.Recordset.EOF
dblSum 
dblSum Me.Adodc1.Recordset.Fields(2)
Me.Adodc1.Recordset.MoveNext
Loop
MsgBox 
"Total: " dblSum
  
Me
.Adodc1.Recordset.MoveFirst
End Sub 
الرد }}}
تم الشكر بواسطة:
#5
جزاك الله خير استاذ امير .. الكود اشتغل و الحمد لله
الرد }}}
تم الشكر بواسطة:
#6
الكود شغال 100/100
الرد }}}
تم الشكر بواسطة:
#7
(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 

بالتوفيق




عمت مساءاً أخي العزيز أريد تطبيق نفس الطريقة على داتا قرايد فيو والناتج في تيكت بوكس حفظك الله
الرد }}}
تم الشكر بواسطة:
#8
(08-12-22, 09:21 PM)عبدالمؤمن كتب :
عمت مساءاً أخي العزيز أريد تطبيق نفس الطريقة على داتا قرايد فيو والناتج في تيكت بوكس حفظك الله

اهلا بك اخي الكريم ، 
ان كنت تقصد داتا قريد vb6  
PHP كود :
   Dim i As Integer
    Dim sum 
As Double
   For i 
0 To RS.RecordCount 1
        sum
sum CDbl(DataGrid1.Columns(1).Text)
 
       RS.MoveNext
    Next i
   Label1
.Caption sum 


مثال : 
.rar   Sum Column.rar (الحجم : 14.45 ك ب / التحميلات : 10)
اما ان كنت تقصد داتا قريد فيو vb.net  ضع سؤالاً في قسم اسئلة الدوت نت 
تحياتي لك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ hamada salah90 7 1,000 26-03-23, 03:05 PM
آخر رد: sanyor77
  عمل QR Code بواسطة VB6.0 عدنان باسلامة 1 1,805 05-09-21, 11:51 AM
آخر رد: hima223384
  كيف اطبع بواسطة الداتا ريبورت lkjnfg 1 1,071 28-08-21, 03:55 PM
آخر رد: مصمم هاوي
  تصدير عمود معين حامد محمد 3 2,313 06-03-19, 01:17 AM
آخر رد: Amir_Alzubidy
  جمع عمود في الداتا قريد sl_dl1 8 3,338 02-11-18, 01:51 AM
آخر رد: sl_dl1
  ادوات التنقل في قاعدة اجدول البيانات بواسطة List view haniblack 4 2,708 13-04-17, 09:57 AM
آخر رد: haniblack
  البحث داخل list viw بواسطة اداة adodc haniblack 7 3,429 27-03-17, 02:11 PM
آخر رد: Amir_Alzubidy
  [vb6.0] ارجو التعديل على مجموع الحسابين الموجود في المشروع عبدالقادرعواد 2 2,097 23-02-17, 01:35 AM
آخر رد: عبدالقادرعواد
  [vb6.0] طلب : نسخ قاعدة البيانات gg.mdb التي نتنسيق 97 وتحويلها إلى تنسيق 2003 بواسطة الكود hamada salah90 3 2,546 05-11-15, 08:12 PM
آخر رد: hamada salah90
  [vb6.0] طلب: كيفية عمل طباعة لملف الوورد بواسطة الطباعة الإفتراضية للحاسوب hamada salah90 3 2,807 31-10-15, 08:42 PM
آخر رد: administrator

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


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