((عسي ان تكون ممن يظلهم الله في ظله يوم لا ظل إلا ظله))
عندي سؤال بارك الله فيك
اريد كود عند اضافة البيانات للداتا قريد فيو .. عند وجود رقم الصنف في الداتا قريد لا يتم تكرار الصنف لكن يقوم باضافة +1 الي الكمية
جربت هذا الكود ما اشتغل
وايضا ----
للعلم يتم البحث عن الصنف عن طريق رقم الصنف موجود في حدث TextChanged
يتم اضافة البيانات لقاعدة البيانات ثم الاستعلام لتعبئة الداتا قريد فيو
اريد قبل عملية الاضافة يتاكد من وجود رقم الصنف (اذا وجد) يقوم باضافة (+1) للكمية فقط (بدون كود تعديل) العمل على الداتا قريد فيو
جعله الله في ميزان حسناتك--
عندي سؤال بارك الله فيك
اريد كود عند اضافة البيانات للداتا قريد فيو .. عند وجود رقم الصنف في الداتا قريد لا يتم تكرار الصنف لكن يقوم باضافة +1 الي الكمية
جربت هذا الكود ما اشتغل
كود :
'For i As Integer = 0 To DataGridView1.Rows.Count - 1
' 'If DataGridView1.Rows(i).Cells(0).Value = TextBox5.Text Then
' ' MsgBox("هذا المنتج موجود مسبقا", MsgBoxStyle.Critical, "تحذير")
' If DataGridView1.Rows(i).Cells(0).Value = DataGridView1.CurrentCell.Value Then
' DataGridView1.Rows(i).Cells(7).Value = (DataGridView1.Rows(i).Cells(7).Value) + 1
' 'Else
' 'DataGridView1.Rows(i).Cells(4).Value = Val(DataGridView1.Rows(i).Cells(4).Value) + Val(1)
' End If
' Exit Sub
'Nexوايضا ----
كود :
ث-i-ث -
For Each row As DataGridViewRow In DataGridView1.Rows
If DataGridView1.Rows(i).Cells(0).Value = DataGridView1.CurrentCell.Value Then
DataGridView1.Rows(i).Cells(7).Value = (DataGridView1.Rows(i).Cells(7).Value) + 1
Exit For
End If
Nextللعلم يتم البحث عن الصنف عن طريق رقم الصنف موجود في حدث TextChanged
يتم اضافة البيانات لقاعدة البيانات ثم الاستعلام لتعبئة الداتا قريد فيو
اريد قبل عملية الاضافة يتاكد من وجود رقم الصنف (اذا وجد) يقوم باضافة (+1) للكمية فقط (بدون كود تعديل) العمل على الداتا قريد فيو
جعله الله في ميزان حسناتك--
Dim x As Integer
For x = 1 To 100
("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
Next x
For x = 1 To 100
("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
Next x

