[elgokr]

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

هى ليس خصة بال ستعتمد على طريقة

والطريقة تتوقف على ما لديك من بيانات 

لنقول لديك قاعدة بيانات تحتوى على جدول ورديات الموظفين مثلاً

وتحتوى على رقم الموظف و الوردية

حتى الان جميل ولا يوجد مشكلة

طيب ناتى الان لعمل شاشة تحديث الوردية

والشاشة دى يمكنك عمل اعدادات لها مثلاً امكانية استخدام الشاشة يوم الخميس فقط

او باصح نهاية الاسبوع بنهاية العمل 

والشاشة تكون وظيفتها بعمل استعلام جلب جميع البيانات بجدول الورديات

ولنقول ان قيمة الاستعلام تم جلبها فى DT والمقصود بها DataTable

الى الان تماما ولا يوجد مشكلة ناتى الان للخطوة ما بعد ذلك

وهو عمل الكود لعرض جميع الموظفين وتحويل الورديات من الى واعادة تحديث الجدول

الشرح سيكون بطريقة استخدام الامور بالاكواد وليس الاكواد

وفى حالة كنت تستخدم الادوات فقط وضح برد التالى وساشرح لك كيفية التطبيق بالاكواد

نستكمل الشرح الان بعد ما قمنا بعمل كود الاستعلام داخل الـ Button

وبنفس الـ Button واسفل كود الاستعلام سيتم تطبيق الكود التالى

كود :

       Dim xWardia As String = Nothing
       For ii As Integer = 0 To DT.Rows.Count - 1
           If DT(ii)("alwardia") = "صباحا" Then
               xWardia = "ليلا"
           ElseIf DT(ii)("alwardia") = "ليلا" Then
               xWardia = "عطلة"
           ElseIf DT(ii)("alwardia") = "عطلة" Then
               xWardia = "صباحا"
           End If

           REM بدلاً من السطر ده طبق كود تحديث البيانات / تعديل البيانات بقاعدة البيانات
           REM واللى هو سيكون بالشكل التالى
           ' "UPDATE alwardayaTB SET alwardia = '" & xWardia & "' WHERE idMwazaf = " & DT(ii)("idMwazaf")
       Next

اتمنى ان يكون الكود بسيط وموضح ما ستقوم بفعله تماماً

تحياتى لك

وتمنياتى لك التوفيق