09-09-17, 09:17 PM
أحتاح تطوير الكود هذا
هذه الصيغه يظهر بها الرقم
أما هذه الداله تجلب أخر رقم وتضيف إليه 1 وتظهره في التكست
أحتا من الداله رقم جديد عند بداية السنه
تكفوووون
كود :
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
أحتا من الداله رقم جديد عند بداية السنه
تكفوووون