17-05-21, 07:45 PM
عندما أقوم بتنفيذ الكود التالي لكي احفظ ما يقوم ال user بإدخاله الى data table عن طريق ال controls لا يتم حفظه
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dt.Rows.Add()
Dim last As Integer = dt.Rows.Count - 1
dt.Rows(last).Item("_name") = TextBox1.Text
dt.Rows(last).Item("dateofbirth") = DateTimePicker1.Value
dt.Rows(last).Item("add") = TextBox2.Text
dt.Rows(last).Item("salary") = Val(TextBox3.Text)
MsgBox(last)
Dim cb As New OleDbCommandBuilder
cb = New OleDbCommandBuilder(da)
dt.AcceptChanges()
da.Update(dt)
End Sub