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

السلام عليكم ورحمة الله وبركاته
احي الكريم جيولوجي
شي طبيعي انه سيقوم بالتعديل على كل السجلات لانك جلبت الكل اولا والداتا تابل تحوي كل السجلات
والحل يكون كالتالي
نقوم بجملة استعلام مع داتا تابل جديدة بحيث نضع شرط ان تكون Emp_State تساوي ماهو موجود في الكومبوبوكس
هنا ستأتي السجلات المراد تعديلها فقط والتي تساوي في الحقل المطلوب الكومبو بوكس ويتم تعديل الحقل المطلوب وفق الاي دي الموجود في الداتا تابل الجديدة
والقيمة التي سنغيرها نأخذها من مربع النص رقم 5 نعمل ذلك في جملة For
جرب الكود التالي وبإذن الله سيعمل 

كود :

' داتا تابل جديدة
       Dim dtt As New DataTable()
       ' جلب السجلات التي تطابق اليوم الموجود في الكومبوبوكس
       da = New SqlDataAdapter("select * from Daily_Tabel Where Emp_State = '" & ComboBox1.Text & "'", Sqlcon)
       da.Fill(dtt)
       ' اذا كان يوجد سجلات
       If dtt.Rows.Count > 0 Then
           For i As Integer = 0 To dtt.Rows.Count - 1
               Cmd = New SqlCommand("Update Daily_Tabel set Emp_State=@Emp_State where ID = @ID", Sqlcon)
               Cmd.Parameters.Add(New SqlParameter("@Emp_State", SqlDbType.NVarChar)).Value = TextBox5.Text ' ياحذ الفيمة من مربع النص 5
               Cmd.Parameters.Add(New SqlParameter("@Id", SqlDbType.Int)).Value = CInt(dtt.Rows(i).Item(0)) ' ياحذ الفيمة الحقل الاول للداتاتابل الجديدة  
               If Sqlcon.State = ConnectionState.Closed Then Sqlcon.Open()
               
               Cmd.ExecuteNonQuery()
               
         
 Next
Sqlcon.Close()
       End If
       MessageBox.Show("تم تعديل البيانات بنجاح", "تعديل", MessageBoxButtons.OK, MessageBoxIcon.Information)