اين الخطا - نسخة قابلة للطباعة

PHP كود :

هذا في المودل  Imports System.Data.OleDb
---------------------------------------
    Public GroupsDT As New DataTable
    Public GroupsDA As New OleDbDataAdapter
    Public MynewIDGroups As Integer
    Public Sub Load_Groups()
        GroupsDT.Clear()
        GroupsDA = New OleDbDataAdapter("Select * from Groups", Con)
        GroupsDA.Fill(GroupsDT)

    End Sub
    Public Sub Code_Groups()
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter("SELECT MAX(GroupID) from Groups", Con)
        da.Fill(dt)
        If IsDBNull(dt(0)(0)) = True Then
            MynewIDGroups = 1
        Else
            MynewIDGroups = dt(0)(0) + 1
        End If
    End Sub

PHP كود :

هذا في الكلاس
Imports System.Data.OleDb

Public Class ItemGroups
    Public Sub claregroups()
        Code_Groups()
        GroupDate.Value = Now.Date
        GroupID.Text = MynewIDGroups
        GroupName.Text = ""
        GroupTime.Value = Now
        GroupUser.Text = ""
    End Sub
    Private Sub ItemGroups_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Load_Groups()
        DataGridView1.DataSource = GroupsDT
        claregroups()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GroupsDT.Rows.Add()
        Dim Last As Integer = GroupsDT.Rows.Count - 1
        GroupsDT.Rows(Last).Item("GroupDate") = GroupDate.Value
        GroupsDT.Rows(Last).Item("GroupID") = GroupID.Text
        GroupsDT.Rows(Last).Item("GroupName") = GroupName.Text
        GroupsDT.Rows(Last).Item("GroupTime") = GroupTime.Value
        GroupsDT.Rows(Last).Item("GroupUser") = GroupUser.Text
        Dim Save As New OleDbCommandBuilder(GroupsDA)
           الخطا يظهر في هذا السطر ولايتم الحفظGroupsDA.Update(GroupsDT)
        GroupsDT.AcceptChanges()
        Load_Groups()
        claregroups()
    End Sub
End Class

كود :

Dim Last As Integer = GroupsDT.Rows.Count - 1

كود :

Dim Last As Integer = GroupsDT.Rows.Count

كود :

       

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     

Dim Last As Integer = GroupsDT.Rows.Count

Dim row As DataRow = GroupsDT.NewRow

GroupsDT.Rows.Add()

        GroupsDT.Rows(Last).Item("GroupDate") = GroupDate.Value

        GroupsDT.Rows(Last).Item("GroupID") = GroupID.Text

        GroupsDT.Rows(Last).Item("GroupName") = GroupName.Text

        GroupsDT.Rows(Last).Item("GroupTime") = GroupTime.Value

        GroupsDT.Rows(Last).Item("GroupUser") = GroupUser.Text

        Dim Save As New OleDbCommandBuilder(GroupsDA)

           GroupsDA.Update(GroupsDT)

        GroupsDT.AcceptChanges()

        Load_Groups()

        claregroups()

    End Sub