منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
أوضح لكم اخواني في الصورة التالية بأني أعمل على إضافة عدد تصوير الأوراق وضربها في الثمن ثم إضافة الثمن في الاسم الموجود في التيكست بوكس
من خلال هذا الكود
       Dim a As Integer = Convert.ToInt32(t1.Text)
       Dim b As Decimal = Convert.ToDecimal(t2.Text)
       Dim result As Decimal = a * b
       t.Text = result.ToString()

       Dim SavInto As New OleDb.OleDbCommand
       Dim adapter2 As New OleDbDataAdapter(SQLstr, Conn)
       SavInto.Connection = Conn
       SavInto.CommandType = CommandType.Text
       SavInto.CommandText = "UPDATE Table1 SET تصوير = '" & Trim(t.Text) & "' , الوظيفة = '" & Trim(TextBox3.Text) & "' , التليفون = '" & Trim(TextBox4.Text) & "'  WHERE التليفون ='" & m & "'"

       Conn.Open()
       SavInto.ExecuteNonQuery()
       Conn.Close()
       MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")

ولكني اريد أن أضيف مرة ثانية ولا أريد أن أمسح القيمة الحالية ، بل أريد أن أضيف معها ، حتى أتمكن في النهاية من طباعة التقرير الكلي بتاريخ اليوم وعدد الأوراق التي تم تصويرها فيه
فما هو الكود المستخدم
بارك الله فيكم

أخي الفاضل :

أقترح اضافة Datagridview لتتمكن من اضافة اكثر من عنصر

ممكن توضيح أكثر أخي بارك الله فيك

هذا هو البرنامج يا اخواني طبعا بعد تحميله والتعديل عليه من المنتدى ، أرجو اكتشاف الخطأ