+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات (/showthread.php?tid=34505)
عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات - x4ahmad - 29-04-20
السلام عليكم ورحمة الله وبركاتة
اسعد الله مسائكم بكل خير وموده وسرور
انا عندي مجموعة بيانات لاشخاص ومن ضمن البيانات مبالغ مالي يتم حساب على كل شهر شهريا
مثلاَ
عندي 7 اشخاص شهريا بيوصلون لي مبلغ 150 اريد كل شهر بتاريخ 27 ميلادي يتم اضافه مبلغ 150 تلقائي على نفس الحقل لكامل الموجودين
اريد فكره تسهل علي عمل ادارتهم ومعرفه من اكمل السداد ومن تخلف عن ذلك
واشكر لكم مقدما كل ما تفعلونه لاخوانكم في هذا الصرح الكريم
تحياتي لكم
اخوكم احمد
RE: عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات - ابراهيم ايبو - 30-04-20
السلام عليكم ورحمة الله وبركاته
اخي الكريم لا أعرف اين ستضع القيم هل في داتا غرايد ام في ليست بوكس
المهم انا اعتبرت ان لديك مربع نص وعند حدث كليك للبوتون سيتم التحقق من ان التاريخ لليوم = 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 SubRE: عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات - x4ahmad - 23-05-20
اشكرك من كل قلبي اخي ابراهيم انت قربت الصورة من ذهني
انا اريد ربطها لكل سجلات الموجوده بقاعدة البيانات ليس فقط بالتيكست لان عدد الموظفين يفوق 20 شخص اريد لو زر يضيف على حقل كامل + 150
اريد ان اوريك واجهه البرنامج
بالحقل a6 اريد ان يضيف 150 على كل الموجودين
لصبحو جميعا 300 ما عاد مصطفى السيد 450
وهكذا
اتمنى ان المعلومه وصلت
او انا يمكن اكون قليل خبره في المجال ولو احد يكون عنده فكره افضل يعرضها واكون له من الشاكرين