'从字符串“”转换为'Integer'类型无效。

Question

我正在尝试使用文本框将一些值插入到datagridview中。 datagridview绑定到MS-Access数据库。

以下列的数据类型为整数：[Level_ID]，[Paper_ID]，[Year_ID]，[Topic_ID]，[Session_ID]和[T​​Z_ID]。其余的存储为字符串。

我使用以下方法启动了我的程序：

Imports System.Data.OleDb
Imports System.Data

然后我写道：

Dim source As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:/Users/khuba/OneDrive/Desktop/CS-IA (Final-Draft).accdb';"

然后是代码：

Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the '_CS_IA__Final_Draft_DataSet_X_.Question_Bank' table. You can move, or remove it, as needed.
    Me.Question_BankTableAdapter.Fill(Me._CS_IA__Final_Draft_DataSet_X_.Question_Bank)
End Sub

然后我创建了另一个Private Sub来处理Add New按钮的点击：'

然后是代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    QuestionBankBindingSource.AddNew()
    Question_BankTableAdapter.Insert(level_IDTextBox.Text, Paper_IDTextBox.Text, Year_IDTextBox.Text, Topic_IDTextBox.Text, Session_IDTextBox.Text, TZ_IDTextBox.Text, Question_gistTextBox.Text, Option_ATextBox.Text, Option_BTextBox.Text, Option_CTextBox.Text, Option_DTextBox.Text, AnswerTextBox.Text)
    QuestionBankBindingSource.EndEdit()

End Sub

我希望写在文本框中的值将被插入到datagridview中，以便我以后可以使用代码保存它：

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

    On Error GoTo SaveErr

    QuestionBankBindingSource.EndEdit()
    Question_BankTableAdapter.Update(_CS_IA__Final_Draft_DataSet_X_)
    MessageBox.Show("Successfully Saved")
SaveErr:

End Sub

'

但是代码给出的错误是“从字符串转换”“到'整数'类型无效。”

Answer 1

我不确定你在那里做什么，但要添加到bindingsource列表，请执行以下操作：

    With Bsource
        .AddNew()
        CType(.Current, DataRowView)("ColName") = TextBox1.Text
        .EndEdit()
    End With