[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

اخي الكريم لا أعرف اين ستضع القيم هل في داتا غرايد ام في ليست بوكس

المهم انا اعتبرت ان لديك مربع نص وعند حدث كليك للبوتون سيتم التحقق من ان التاريخ لليوم = 27 

ان كان كذلك سيتم اضافة رقم 150 على مافي التكست بوكس

حتى تتأكد من صحة الكود ضع بدل الرقم 27 رقم اليوم الحالي وضع رقما في التكست بوكس زاضغط البوتون

بقي كيف اغير مجموعة القيم ان كانت في الداتا غرايد ستعمل حملة فور في حدث فورم لود على الحقل الذي فيه القيمة

وسيتم المقارنة ان كان تاريخ اليوم هو 27 ستضاف الى كل خلايا الحقل الرقم الذي تريده

استبدل مربع النص بعمود القيمة مع خلاياه 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     
       Dim aa As Date = Now

       If aa.Day = 27 Then

           TextBox1.Text = Val(TextBox1.Text) + 150
       End If
   End Sub