[s3eed]

(12-04-15, 10:43 PM)wessam.demerdash كتب : ' دالة الترقيم التلقائى
   Public Sub AutoNum(ByVal C As TextBox, ByVal SQLStatment As String)
       Try
           Dim sda As New SqlDataAdapter(SQLStatment, sqlcon)
           Dim ds As New DataSet
           sda.Fill(ds)
           Dim n As Integer = ds.Tables(0).Rows.Count
           If n > 0 Then
               C.Text = Format(ds.Tables(0).Rows(n - 1)(0) + 1, "00000")

           Else
               C.Text = Format("00001")
           End If

       Catch ex As Exception
           MsgBox(ex.Message)
       Finally
           sqlcon.Close()
       End Try
   End Sub

جزاك الله خير ضبطت العملية ولله الحمد