[نيمو]

(11-08-22, 09:54 AM)مصمم هاوي كتب : السلام عليكم

عندي سؤالان، أبدأ بالسؤال الأول:
1: هل يمكن التعديل على هذا المثال البسيط بخصوص الترقيم التلقائي في الداتا قريد فيو
حيث يتم خزن الترقيم في حقل id.
فالترقيم التلقائي في قاعدة البيانات لا أحبذه كثيراً

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

ملاحظة: لا أقصد بالسجل  حقل الــ (ID)، إنما المقصود به سجل خاص لكتابة العقود يحتوي على عدد (25) صفحة أو عقداً
وكذلك القصد أن يكون الترقيم تلقائي لحقل ID من خلال الداتا قريد فيو
بعد إجابة السؤال الأول أنتقل للسؤال الثاني إن شاء الله تعالى
المثال في المرفقات




بالنسبة للترقيم التلقائي فاستخدم الدالة ذي , استخدمهه من فيديو اكاديمية حسونه

كود :

Private Function AutoNum(TblName As String, ColName As String) As String
       Dim Str As String = "SELECT MAX(" & ColName & ") + 1 FROM " & TblName & " where TblName = '" & Name & "'"
       Dim Tbl As New DataTable
       Tbl = GetTable(Str)
       Dim MyIDNum As String
       If Tbl.Rows(0)(0) Is DBNull.Value Then
           MyIDNum = "1"
       Else
           MyIDNum = Tbl.Rows(0)(0)
       End If
       Return MyIDNum
   End Function

استبدل ( where TblName = '" & Name & "'" ) بالجدول المناسب