[سعود]

(21-05-18, 02:29 PM)حافظ حافظ كتب : شكرا اخ سعود تم حل المشكلة و بارك الله فيك.استخدمت هكذا

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If rowcount() = 0 Then
           TextBox5.Text = Val(TextBox1.Text)
       Else
           TextBox5.Text = Val(TextBox1.Text) + 1
       End If
   End Sub

بارك الله فيك وكثر من امثالك ... اسلوبك بالاهتمام بالمشاركين  يجعلهم يتسابقون لتقديم مالديهم  حال ورود سؤال.