01-08-20, 08:25 PM
(آخر تعديل لهذه المشاركة : 01-08-20, 08:37 PM {2} بواسطة جيولوجي مبتدئ.)
السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير
اخواني أريد أ، أعمل تحديث لبعض البيانات حيث يوجد عندي أحد الأعمدة وبه أيام الأسبوع وعمود آخر به حالة الموظف ( حالة الموظف تعني غائب ، إجازة أسبوعية , إجازة اضطرارية ) الذي أريد أن أعمله مثلاُ يغير يوم الخميس بدل أن يكون إجازة أسبوعية يجعله لي إجازة اضطرارية ولكن لكل الموظفين
أنا عملت الكود التالي
عملت تكست بوكس textbox5 و combobox1 بحيث أنه أختار اليوم من خلال الكوموبوبكس وعندها يقوم بالبحث في الداتاقريد فيو وعندما يجد يوم الخميس يقوم باستبدال القيمة حسب الموجود في textbox5 ولكن الذي يحصل أنه يعدل الصف المحدد الذي أنا واقف عليه
دمتم بود
آسف اخواني تكرر الموضوع ولم أنتبه
اخواني أريد أ، أعمل تحديث لبعض البيانات حيث يوجد عندي أحد الأعمدة وبه أيام الأسبوع وعمود آخر به حالة الموظف ( حالة الموظف تعني غائب ، إجازة أسبوعية , إجازة اضطرارية ) الذي أريد أن أعمله مثلاُ يغير يوم الخميس بدل أن يكون إجازة أسبوعية يجعله لي إجازة اضطرارية ولكن لكل الموظفين
أنا عملت الكود التالي
عملت تكست بوكس 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("تم تعديل حالة الموظف")
آسف اخواني تكرر الموضوع ولم أنتبه