02-09-18, 03:56 PM
السلام عليكم ورحمة الله وبركاتة
اخواني
بعد الضغط على زر تعديل اريد ان يقف على نفس الصف وان يحدث البيانات في الداتا جريد فيو
الكود الذي استخدمة يوقف على نفس الصف لكن لا يحدث البيانات في الداتا جريد فيو
مع العلم ان البيانات يكون قد تم تعديلها بقاعدة البيانات
طبعا انا ابحث بزر خاص بالبحث وبعد ذالك اجري التعديل
هذا الكود
كود :
Try
If myconn.conn.State = ConnectionState.Open Then
myconn.conn.Close()
End If
If ComboBoxDay.SelectedIndex = False Then
MsgBox("الرجاء ادخل اليوم", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "حقل إجباري")
ComboBoxDay.Focus()
Exit Sub
End If
If TxtInformisen.Text = "" Then
MsgBox("الرجاء ادخل معلومات الدوام", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "حقل إجباري")
Exit Sub
TxtInformisen.Focus()
End If
If TxtHouer.Text = "" Then
MsgBox("الرجاء ادخال عدد ساعات الاضافي", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "حقل إجباري")
Exit Sub
TxtHouer.Focus()
End If
myconn.bbay = ComboBoxDay.SelectedItem.ToString()
Dim updaet As Boolean
updaet = myconn.SQlExicute("update woork1 set Name_Company= '" & TexCompany.Text & "', day= '" & myconn.bbay & "', alyowm= '" & DateTimePicker1.Text & "', informisen= '" & TxtInformisen.Text & "', clook= '" & TxtHouer.Text & "' , notes= '" & TxtNotes.Text & "' where ID= '" & Textrecid.Text & "'")
If updaet = True Then
MsgBox("تمت عملية التحديث بنجاح", MsgBoxStyle.Information)
DgvEdit.DataSource = myconn.dt
BindingContext(myconn.dt).Position = myconn.pos
myconn.cur = CType(Me.BindingContext(myconn.dt), CurrencyManager)
myconn.showposition(lbl:=LbEdit)
myconn.summ(dgv:=DgvEdit, txt:=TexTotal)
BtnEdit.Enabled = False
TexCompany.Enabled = False
ComboBoxDay.Enabled = False
DateTimePicker1.Enabled = False
TxtInformisen.Enabled = False
TxtHouer.Enabled = False
TxtNotes.Enabled = False
BtnSersh.Enabled = False
TextCompany1.Enabled = False
BtnCompany.Enabled = False
Else
MsgBox("خطا في عملية التحديث", MsgBoxStyle.Critical)
myconn.load_data()
DgvEdit.DataSource = myconn.dt
myconn.summ(dgv:=DgvEdit, txt:=TexTotal)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
تحياتي لكم جميعا