عندي ليست فيو اريد ان اجمع عدد من الصفوف بها يعني اريد مرة جمع اول عشرة صفوف وايضا نقلهم الي ليست فيو اخري
واريد جمع مرة اخري من الصف الخامس الي الصف التاسع بنفس العمود ونقلهم ايضا
1
2
3
4
5
6
7
8
9
10
(18-09-13, 02:24 AM)@@أبورائد@@ كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
جرب هذا المثال قد يفيدك
كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 1 To 3
' ListView1.Items(i) تعني نسخة من Clone
Me.ListView2.Items.Add(Me.ListView1.Items(i).Clone)
Next
End Sub
End Class
السلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
منور أخي أبو رائد
أسأل الله أن يوفقك لكل خير ...
بالنسبة إلى السؤال
فأحب أن أضيف إضافة وهي الجمع
تفضل أخي هذا هو الكود
كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'طريقة جمع كامل الصفوف
Dim Total As Integer = 0
For I = 0 To Me.ListView1.Items.Count - 1
' ListView1.Items(i) تعني نسخة من Clone
Me.ListView2.Items.Add(Me.ListView1.Items(I).Clone)
Total += CInt(Me.ListView1.Items(I).Text)
Next
'طريقة جمع آخر خمسة صفوف
Dim SubTotal As Integer = 0
For I = 6 To Me.ListView1.Items.Count - 1
' ListView1.Items(i) تعني نسخة من Clone
Me.ListView2.Items.Add(Me.ListView1.Items(I).Clone)
SubTotal += CInt(Me.ListView1.Items(I).Text)
Next
MsgBox(Total)
MsgBox(SubTotal)
End Sub
End Class
واللة يجماعة مش عارف اقول اية علي الا جابات المميزة دية لما لقيت المنتدي بة مشكلة في الدخول امس مش عارف المشكل فين حاولت بالكود دة ومشي الحال
Dim ba As Integer
Dim m_total As Double
For ba = 1 To 3
m_total += Convert.ToDouble(ListView8.Items(ba).SubItems(1).Text)
Next ba
TextBox34.Text = m_total
عقدت نفسي شوية بس مشي الحال
عندي سؤال اخر في نفس الموضوع لان مشكلتي بقاعدة فور اريد نقل المحتويات باليست فيو لاخر علي اساس اليوم الكمية المباعة خلال اسبوع لاعادة تفصيلها باليوم
http://www.4shared.com/rar/ZtzyoUtP/___online.html