منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته ...
أرج التكرم والمساعدة لسبب ظهور هذه الرسالة ...

Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.IO

Module connection
    Public ConstrPos As String = "Data Source=AMRONAFFA\SERVER;Initial Catalog=POSSham;Persist Security Info=True;User ID=sa;Password=sa"
    Public ConPos As New SqlClient.SqlConnection(ConstrPos)

    Public Function GetMaxID(TableName, CoulmnName) As Integer
        Dim dtPos As New DataTable
        Dim adpPos As New SqlDataAdapter
        dtPos.Clear()
        adpPos = New SqlDataAdapter("select MAX(" & CoulmnName & ") from " & TableName & "", ConPos)
        adpPos.Fill(dtPos)

        Dim AutoNumber As Integer

        If IsDBNull(dtPos(0)(0)) = True Then
            AutoNumber = 1
        Else
            AutoNumber = dtPos(0)(0) + 1
        End If
        Return AutoNumber
    End Function
End Module


وهذه الرسالة
Class 'Data Table' cannot be indexed because it has no default property.