'comments' is the field in question.
_______________________________________
Private Sub Update_Dataset()
Dim dr As DataRow = DataSet11.Tables("Results").NewRow()
dr("Area") = Area.SelectedItem
dr("Q1") = Q1.SelectedIndex + 1
dr("Q2") = Q2.SelectedIndex + 1
dr("Q3") = Q3.SelectedIndex + 1
dr("Q4") = Q4.SelectedIndex + 1
dr("Q5") = Q5.SelectedIndex + 1
dr("Q6") = Q6.SelectedIndex + 1
dr("Q7") = Q7.SelectedIndex + 1
dr("Q8") = Q8.SelectedIndex + 1
dr("Q9") = Q9.SelectedIndex + 1
dr("Comments") = Comments.Text
dr("ID") = 0
DataSet11.Tables("Results").Rows.Add(dr)
OleDbDataAdapter1.Update(DataSet11, "Results")
End Sub
__________________________________________________________
No comments:
Post a Comment