منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أبحث عن كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : أبحث عن كود (/showthread.php?tid=21629)

أبحث عن كود - طـلال - 09-09-17

أحتاح تطوير الكود هذا 
كود :
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


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