[m.sami.ak]

استخدم الاجراء التالي واستغني عن حقل الترقيم التقائي في قاعدة البيانات واجعلة حقل رقم فقط
لان الاجراء التالي يقوم بحساب اكبر قيمة داخل الجدول ويقوم بزيادتها +1

PHP كود :

private Function FindMaxDataTableValue(ByRef dt As DataTable) As Integer
    Dim currentValue As Integer, maxValue As Integer
    Dim dv As DataView = dt.DefaultView
    For c As Integer = 0 To dt.Columns.Count - 1
        dv.Sort = dt.Columns(c).ColumnName + " DESC"
        currentValue = CInt(dv(0).Item(c))
        If currentValue > maxValue Then maxValue = currentValue
    Next
    Return maxValue
End Function