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

اخي حازم الكود هكذا بعد التعدبل

كود :

 If ComboBox1.Text.Trim = "" Then
           ComboBox1.Focus()
           Exit Sub
       Else
           
           DataGridView1.EndEdit()
           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
                   TextBox3.Text = ""
                   TextBox4.Text = ""
                   TextBox5.Text = ""
                   ComboBox3.Text = ""
                   Me.Table15TableAdapter.Fill(Me.A18DataSet.Table15)
                   With DataGridView1
                       .ClearSelection()
                       .ReadOnly = True
                       .MultiSelect = False
                       TextBox3.Select()

                   End With
           End Select
       End If