[Hazem1]

(04-10-18, 01:14 AM)ابراهيم ايبو كتب : اخي حازم الكود هكذا بعد التعدبل

كود :

 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
 

الله المُستعان، أخي تستطيع أن تستريح وغداً أحاول مُراجعة الكود إن شاء الله، ما أُريد أن أشق عليك، الآن تظهر رسالة الحفظ وإن كانت القيمة فارغة.