[طـلال]

أحتاح تطوير الكود هذا 

كود :

txtcode.Text = Format(cls.GetlstRcno("Asharto", "code_Ashar") + 1, "AH000000")

هذه الصيغه يظهر بها الرقم 


أما هذه الداله تجلب أخر رقم وتضيف إليه 1 وتظهره في التكست 

كود :

Function GetlstRcno(ByVal Names, ByVal OrderByfild) As String
       GetlstRcno = 0
       Dim STR = " select * from " & Names & " Order by " & OrderByfild
       Dim Da As New SqlClient.SqlDataAdapter(STR, CON)
       Dim Ds = New DataSet
       Da.Fill(Ds)
       Dim DT As DataTable
       DT = Ds.Tables(0)
       If DT.Rows.Count <> 0 Then
           Dim i = DT.Rows.Count - 1
           GetlstRcno = Val(DT.Rows(i).Item(OrderByfild))
       End If
   End Function

أحتا من الداله رقم جديد عند بداية السنه 
تكفوووون