+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] برجاء المساعدة فى هذا الكود (/showthread.php?tid=28263)
برجاء المساعدة فى هذا الكود - medhat_fouad - 16-01-19
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
كود زرار الحفظ