+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=41739)
مشكلة في كود الترقيم التلقائي - Abdallah61 - 15-06-22
اظن ان الكود صحيح ولكن لا اعلم اين المشكلة
PHP كود :
Public Function Code_Users()
Dim dt As New DataTable
Dim da As New SqlDataAdapter
Dim mynewIDUsers As Integer
dt.Clear()
da = New SqlDataAdapter("select MAx(UserID) from Users", Con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewIDUsers = 1
Else
mynewIDUsers = dt(0)(0) + 1
End If
Return mynewIDUsers
End Function
الخطأ المتعرف عليه:
Error 3 'ElementAtOrDefault' is not a member of 'System.Data.EnumerableRowCollection(Of System.Data.DataRow)'. connection_load.vb 24 21
RE: مشكلة في كود الترقيم التلقائي - نيمو - 15-06-22
الكود صحيح ولم تظهر عندي اخطاء
اي نسخة تستخدم الفجوال ؟ اكيد 2019
اشوف الاخطاء اللي تحصل اغلبهه من النسخ الحديثة
RE: مشكلة في كود الترقيم التلقائي - سعود - 16-06-22
ما رايك بهذا الكود؟
PHP كود :
Private Function Maxid() As Integer
Using cmd As New SqlCommand("", con)
cmd.CommandText = "select max(tid) from pics"
If con.State = ConnectionState.Closed Then con.Open()
Try
Return cmd.ExecuteScalar
Exit Function
Catch ex As Exception
End Try
If con.State = ConnectionState.Open Then con.Close()
End Using
Return Nothing
End Function
RE: مشكلة في كود الترقيم التلقائي - معاند الحظ - 16-06-22
غير الاسطر التي تحتوي على
كود :
dt(0)(0)الى
كود :
dt.rows(0)(0)سبب الخطأ ان الخاصية rows ليست افتراضية مثل الخاصية items الموجودة في ليستبوكس مثلا
راجع الرابط التالي:
Why do I get, "ElementAtOrDefault' is not a member of 'System.Data.EnumerableRowCollection"?