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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        UsersDT.Rows.Add()
        Dim last As Integer = UsersDT.Rows.Count - 1
        UsersDT.Rows(last).Item("UserAddress") = Useraddress.Text

        UsersDT.Rows(last).Item("Userfullname") = Userfullname.Text
        UsersDT.Rows(last).Item("UserGender") = Usergender.Text
        UsersDT.Rows(last).Item("Userjob") = Userjob.Text

        UsersDT.Rows(last).Item("Usertime") = Usertime.Value
        UsersDT.Rows(last).Item("Userphone") = Userphone.Text

        UsersDT.Rows(last).Item("UserDate") = Userdate.Value

        UsersDT.Rows(last).Item("UserID") = Userid.Text

        Dim Save As New SqlDataAdapter(UsersDA)
        UsersDA.Update(UsersDT)
        UsersDT.AcceptChanges()
        MsgBox("تم الحفظ")
        Load_Users()
        newuser()
    End Sub

كود زرار الحفظ