تفضل أخي الكريم (كود زر حفظ البيانات ) :
(Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs
On Error GoTo saveErr
()Table15BindingSource.EndEdit
(Table15TableAdapter.Update(A18DataSet.Table15
("Select Case MsgBox("Data saved successfully, Add New Data?", MsgBoxStyle.YesNo, "Save
Case MsgBoxResult.Yes
()TextBox1.Select
()Table15BindingSource.AddNew
Case MsgBoxResult.No
(Me.Table15TableAdapter.Fill(Me.A18DataSet.Table15
With DataGridView1
()ClearSelection.
ReadOnly = True.
MultiSelect = False.
End With
End Select
(Table15TableAdapter.Update(A18DataSet.Table15
("Select Case MsgBox("Data saved successfully, Add New Data?", MsgBoxStyle.YesNo, "Save
Case MsgBoxResult.Yes
()TextBox1.Select
()Table15BindingSource.AddNew
Case MsgBoxResult.No
(Me.Table15TableAdapter.Fill(Me.A18DataSet.Table15
With DataGridView1
()ClearSelection.
ReadOnly = True.
MultiSelect = False.
End With
End Select
ave ErrExit Sub
End Sub
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.
