+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة الترقيم التلقائي (/showthread.php?tid=32132)
مشكلة الترقيم التلقائي - محمد خيري - 15-11-19
السلام عليكم.اخواني من فضلكم رجاء المساعدة لحل المسالة
و انا اتابع دورة الاخ عثمان خورشيد على اليوتوب عند الترقيم التلقائي عملت تماما مثلما هو عامل لكن الترقيم ياتي المرة الاولى على هذا الشكل CUS000001 و يتم الحفظ عادي و بعد ذلك يبقى دائما CUS000001 و لا يزيد 1 على العداد ابدا
هذي قاعدة بيانات الاخ عثمان خورشيد
و هذي صورة قاعدة بياناتي
ال id هو ترقيم تلقائي و الذي يهم هو Customercode
و هذا الكود المستعمل مثل ما هو عامله
كود :
Public Function Get_Last_Record(Table_Name, OrderByField) As String
Get_Last_Record = 0
Dim Str = "SELECT * From " & Table_Name & " Order By " & OrderByField
Dim Adp As New SqlClient.SqlDataAdapter(Str, Conne)
Dim Ds As New DataSet
Adp.Fill(Ds)
Dim Dt As DataTable
Dt = Ds.Tables(0)
If Dt.Rows.Count <> 0 Then
Dim I = Dt.Rows.Count - 1
Get_Last_Record = Val(Dt.Rows(I).Item(OrderByField))
End If
End Functionكود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.TextBox1.Text = Format(Get_Last_Record("CUSTOMERS", "CustomerCode") + 1, "000000")
End SubRE: مشكلة الترقيم التلقائي - asemshahen5 - 15-11-19
PHP كود :
Public Function Get_Last_Record(Table_Name, OrderByField) As String
Get_Last_Record = 0
Dim Str = "Select count(" & OrderByField & ") From " & Table_Name
Dim Adp As New SqlClient.SqlDataAdapter(Str, cn)
Dim Ds As New DataSet
Adp.Fill(Ds)
Dim Dt As DataTable
Dt = Ds.Tables(0)
If Dt.Rows.Count > 0 Then
Dim I = Dt.Rows.Count - 1
Get_Last_Record = Dt.Rows(I).Item(0)
End If
End Function
كود الفورم :
PHP كود :
For Each tx As Control In Controls
If TypeOf tx Is TextBox Then
tx.Text = ""
End If
Next
Txt_ID.Text = Format(Val(Get_Last_Record("Castomer", "ID") + 1), "CUS000000")
RE: مشكلة الترقيم التلقائي - محمد خيري - 15-11-19
مشى الحال استاذ asem بجد كثر الف خيرك خلصتني من معضلة و بارك الله فيك بحجم السماوات و الارض مع التقييم
RE: مشكلة الترقيم التلقائي - asemshahen5 - 15-11-19
الله يسلمك و الحمد الله رب العالمين .
RE: مشكلة الترقيم التلقائي - Thht - 21-09-20
اذا سمحتوا. جداول الاصناف والاسعار لاداره المبيعات للمهندس عثمان خورشيد وصلت لهذه النقطه ولقيت مشاكل ماعاد قدرت اكمل....