[Abdallah61]

اظن ان الكود صحيح ولكن لا اعلم اين المشكلة

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

[نيمو]

الكود صحيح ولم تظهر عندي اخطاء
اي نسخة تستخدم الفجوال ؟ اكيد 2019
اشوف الاخطاء اللي تحصل اغلبهه من النسخ الحديثة

[سعود]

ما رايك بهذا الكود؟

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 


[معاند الحظ]

غير الاسطر التي تحتوي على

كود :

 dt(0)(0)

الى

كود :

dt.rows(0)(0)

سبب الخطأ ان الخاصية rows ليست افتراضية مثل الخاصية items الموجودة في ليستبوكس مثلا 

راجع الرابط التالي:
Why do I get, "ElementAtOrDefault' is not a member of 'System.Data.EnumerableRowCollection"?