السلام عليكم
اخواني الاعزاء ممكن حد يعملي كود كما في الشرح
انشأ متغير من نوع int
اعطيه قيمة افتراضية 0 بحيث عندما يحدث التحديث في الشهر الاول تصبح قيمته 1
تضيف شرط الىشرط الشهر
بحيث يتاكد من الاثنان معا مثلا
اذا كان الشهر 1 وكان المتغير 0
تحدث عملية التحديث
وتصبح قيمة المتغير 1
اما اذا كان الشهر 1 والمتغير 1
لا تحدث عملية التحديث
اذا كان الشهر 2
وهذا الكود البرمجي
Dim curentdate As DateTime = DateTime.Now
If curentdate.Month = 1 Then
Dim int As Integer = 0
Try
Dim total As String = "Total ----------->"
Dim tot As Integer = 0
'getting the values of a specific rows
For Each row As DataGridViewRow In DGV_item.Rows
'formula for adding the values in the rows
tot += row.Cells(2).Value
DGV_item.Rows(row.Index).Cells(2).Value += 3
update_item(DGV_item.Rows(row.Index).Cells(1).Value.ToString(), DGV_item.Rows(row.Index).Cells(2).Value.ToString(), DGV_item.Rows(row.Index).Cells(0).Value)
load_item()
Next
MsgBox("تمت عملية التحديث بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try
تصبح قيمة المتغير 0
اذا كان الشهر 2 والمتغير 0
تحدث عملية التحديث
ويصبح المتغير 1
واذا كان الشهر 2 والمتغير 1
لا تحدث عملية التحديث
وهكذا
ملاحظة:: يجب ان يبفى المتغير ثابت حتى لو تم اغلاق البرنامج كي لت يفقد قيمته ويعود للفيمة الافتراضية
اخواني الاعزاء ممكن حد يعملي كود كما في الشرح
انشأ متغير من نوع int
اعطيه قيمة افتراضية 0 بحيث عندما يحدث التحديث في الشهر الاول تصبح قيمته 1
تضيف شرط الىشرط الشهر
بحيث يتاكد من الاثنان معا مثلا
اذا كان الشهر 1 وكان المتغير 0
تحدث عملية التحديث
وتصبح قيمة المتغير 1
اما اذا كان الشهر 1 والمتغير 1
لا تحدث عملية التحديث
اذا كان الشهر 2
وهذا الكود البرمجي
Dim curentdate As DateTime = DateTime.Now
If curentdate.Month = 1 Then
Dim int As Integer = 0
Try
Dim total As String = "Total ----------->"
Dim tot As Integer = 0
'getting the values of a specific rows
For Each row As DataGridViewRow In DGV_item.Rows
'formula for adding the values in the rows
tot += row.Cells(2).Value
DGV_item.Rows(row.Index).Cells(2).Value += 3
update_item(DGV_item.Rows(row.Index).Cells(1).Value.ToString(), DGV_item.Rows(row.Index).Cells(2).Value.ToString(), DGV_item.Rows(row.Index).Cells(0).Value)
load_item()
Next
MsgBox("تمت عملية التحديث بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Try
تصبح قيمة المتغير 0
اذا كان الشهر 2 والمتغير 0
تحدث عملية التحديث
ويصبح المتغير 1
واذا كان الشهر 2 والمتغير 1
لا تحدث عملية التحديث
وهكذا
ملاحظة:: يجب ان يبفى المتغير ثابت حتى لو تم اغلاق البرنامج كي لت يفقد قيمته ويعود للفيمة الافتراضية