لدي جدول اقوم باستدعاءه في داتا جريد وهذا الجدول به 4 عواميد واحد لاسم المستخدم والثلاث الباقيين لصلحيات المستخدم وهي الاضافة - التعديل - الحذف
وهذه الصلحيات قيمة الحقول الخاصة بها bit وعندما استدعي الجدول بالداتا جريد اقوم بالتعديل في هذه الصلحيات من خلال checkboxs الموجودة بالداتا جريد واحيانا اقوم بتعديل اكثر من سجل معا
واقوم باظهار رسالة تفيد باتمام عملية التعديل و عدد السجلات المعدلة
عملية التعديل تتم بلا مشاكل وايضا اذا اردت تعديل اكثر من سجل في وقت واحد فانه يتم التعديل
اما المشكلة فهي في الرسالة التي تظهر وتفيد بعدد السجلات التي تم التعديل فيها فانه
بعد اتمام عملية التعديل فتظهر الرسالة بعدد السجلات الموجودة تظهر اول واحدة "تم تعديل عدد1 من 7 سجلات" والثانية "تم تعديل عدد2 من 7 سجلات" الى ان تصل الى "تم تعديل عدد7 من 7 سجلات" حتى لو تم التعديل في واحد او اثنان فقط فتظهر الرسالة 7 مرات اي بعدد السجلات الموجودة في الجدول وهذا هو الكود
Dim count As Integer : count = 0
Dim sms
Dim i
sms = DataGridView1.Rows.Count
Try
For i = 0 To sms - 1
Dim upcom As New SqlCommand("update log_on set add_user= '" & Trim(Me.DataGridView1.Item(1, i).Value) & "' , edit_user= '" & Trim(Me.DataGridView1.Item(2, i).Value) & "' , delete_user= '" & Trim(Me.DataGridView1.Item(3, i).Value) & "' Where user_name= '" & Trim(Me.DataGridView1.Item(0, i).Value) & "' ", con)
con.Open()
upcom.ExecuteNonQuery()
con.Close()
If con.State = ConnectionState.Open Then con.Close()
count += 1
MsgBox("تمت التعديل بنجاح على" & count & " سجل/ سجلات", MsgBoxStyle.MsgBoxRight, "نجاح العملية")
Next i
Catch ex As Exception
MsgBox("فشلت عملية التعديل")
End Try