[dubai.eig]

(16-09-18, 11:42 AM)911 كتب :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If sender.Text = "Add" Then
       Add()
       sender.Text = "Update"
   Else
       Update()
       sender.Text = "Add"
   End If
End Sub

Private Sub Add()
   MsgBox("Add")
End Sub

Private Sub Update()
   MsgBox("Update")
End Sub

تسلم على مشاركتك الكريمه

نعمل عمل الكود معاي بشكل ممتاز 

بس انا عندي مع كل زر ثلاث textbox
مثلا الزر الاولي
في
textbox1  textbox2   textbox3

ووقت الاضافه بيكون

   

كود :

       cmdx.Parameters.AddWithValue("@add1", TextBox1.Text)
       cmdx.Parameters.AddWithValue("@add2", TextBox2.Text)
       cmdx.Parameters.AddWithValue("@add3", TextBox3.Text)

وفي الزر الثاني
textbox4  textbox5   textbox6

ووقت الاضافه بيكون

   

كود :

       cmdx.Parameters.AddWithValue("@add1", TextBox4.Text)
       cmdx.Parameters.AddWithValue("@add2", TextBox5.Text)
       cmdx.Parameters.AddWithValue("@add3", TextBox6.Text)

يعني في هذه الحاله يجب ان اعمل

كود :

Private Sub Add1()
  MsgBox("Add")
End Sub

Private Sub Add2()
  MsgBox("Add")
End Sub

Private Sub Add3()
  MsgBox("Add")
End Sub

هل هناك طريقه مختصره والا اتوكل على الله واعمل Add1 Add2 Add3 

بارك الله فيك وشكرا من جديد

---

(16-09-18, 11:49 AM)mmali127 كتب : فهمت عليك 

تمام كده يكون مشاركة استاذنا 911 تفيذك فى هذه الحالة

كلامك صحيح بارك الله فيك