Как правильно управлять кодом

Question

У меня есть источник данных и таблица, которые я могу привязать к моим элементам управления и datagridview. Я могу добавить записи в таблицу данных, и я могу посмотреть на datagridview, но я не могу обновлять и удалять записи с помощью datagrid. У меня есть следующий код. Если кто-то может мне помочь, я буду очень благодарен.

Private Sub add_and_update() 
     Dim con As VistaDBConnection 
     Dim Cmd As New VistaDBCommand 
     Dim constring As String 
     constring = String.Format("Data Source =v_slot_database.vdb3", (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase))) 
     con = New VistaDBConnection(constring) 
     con.Open() 
     Dim metertable As DataTable = Me.DataSet1.Tables.Item("tbl_meter") 
     Dim row As DataRow = metertable.NewRow() 
     row.Item("CDate") = txtdate.Text 
     row.Item("Machine_No") = txtno.Text 
     row.Item("Turnover") = txtturnover.Text 
     row.Item("Total Win") = txttotalwin.Text 
     row.Item("Games Played") = txtgamesplayed.Text 
     row.Item("Credit In") = txtcreditin.Text 
     row.Item("Bill In") = txtbillin.Text 
     row.Item("Cancel Credit") = txthandpay.Text 
     metertable.Rows.Add(row) 
     Me.DataSet1.tbl_meter.AcceptChanges() 
     Me.Tbl_meterTableAdapter.Update(Me.DataSet1.tbl_meter) 
     clear_fields() 
     con.Close() 
     con = Nothing 
    End Sub 

Private Sub clear_fields() 
     Me.txtno.Text = "0" 
     Me.txtturnover.Text = "0" 
     Me.txttotalwin.Text = "0" 
     Me.txtgamesplayed.Text = "0" 
     Me.txtcreditin.Text = "0" 
     Me.txtbillin.Text = "0" 
     Me.txthandpay.Text = "0" 
     Me.txtno.Focus() 
    End Sub 

Answer 1

Я начинаю давать ответ себе. :) Я нашел причину. На моих столах не было первичного ключа. Я добавил, и проблема решена.