منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة (/showthread.php?tid=35957)



التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة - جيولوجي مبتدئ - 01-08-20

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

اخواني أريد أ، أعمل تحديث لبعض البيانات حيث يوجد عندي أحد الأعمدة وبه أيام الأسبوع وعمود آخر به حالة الموظف ( حالة الموظف تعني غائب ، إجازة أسبوعية , إجازة اضطرارية )  الذي أريد أن أعمله مثلاُ يغير يوم الخميس بدل أن يكون إجازة أسبوعية يجعله لي إجازة اضطرارية ولكن لكل الموظفين
أنا عملت الكود التالي

عملت تكست بوكس textbox5   و  combobox1  بحيث أنه أختار اليوم من خلال الكوموبوبكس  وعندها يقوم بالبحث في الداتاقريد فيو وعندما يجد يوم الخميس يقوم باستبدال القيمة حسب الموجود في  textbox5       ولكن الذي يحصل أنه يعدل الصف المحدد الذي أنا واقف عليه


دمتم بود

For i As Integer = 0 To DataGridView2.Rows.Count - 1

If DataGridView2.Rows(i).Cells(3).Value = ComboBox1.Text Then

''If Form2.DataGridView2.Rows(i).Cells(4).Value = DateTimePicker1.Value Then

DataGridView2.Rows(i).Cells(1).Value = TextBox3.Text

Dim cmdupdate As SqlCommand = New SqlCommand("update Daily_Tabel set Emp_State=@Emp_State where ID = @ID", Sqlcon)

cmdupdate.Parameters.Add("@Emp_State", SqlDbType.NVarChar).Value = TextBox5.Text

cmdupdate.Parameters.Add("@ID", SqlDbType.Int).Value = TextBox1.Text

Sqlcon.Open()

If cmdupdate.ExecuteNonQuery = 1 Then

End If

Sqlcon.Close()

 

'End If

End If

Next


 

 

 

 

MsgBox("تم تعديل حالة الموظف")