Question

在我的VB表单中，我使用有界数据网格视图来管理我的数据库表。我用2个参数创建FillBy（）查询：int1，int2。两者都是整数。当一些控件被更改时，我调用子Anychange（）以触发FillByToolStipButton_Click。但似乎两个参数没有改变，Sub FillByToolStipButton_Click中出现错误消息：＆＃34;转换为字符串＆＃34;＆＃34;输入整数无效＆＃34;
请指教。谢谢。佩戴我的代码的某些部分

   Private Sub FillByToolStripButton_Click(sender As Object, e As EventArgs) Handles FillByToolStripButton.Click
    Try
         Me.Before_CloseTableAdapter.FillBy(Me.BeforeCloseDataSet.Before_Close, CType(int1ToolStripTextBox.Text, Integer), CType(int2ToolStripTextBox.Text, Integer))
    Catch ex As System.Exception
        System.Windows.Forms.MessageBox.Show("Fillby - " + ex.Message)
    End Try

End Sub

 Private Sub AnyChanged()
    Try
        int1StripTextBox.Text = CType(ComboBox1.SelectedValue, String)
        int2ToolStripTextBox.Text = CType(ComboBox2.SelectedValue, String)
        FillByToolStripButton_Click(Nothing, Nothing)
    Catch ex As Exception
        MsgBox("AnyChanged - " + ex.Message)
    End Try

End Sub

Answer 1

行。我解决了。

只需更改

 Privat Sub AnyChange() to
   Dim a as integer
   dim b as integer
   a = ComboBox1.SelectedValue
   b = ComboBox2.SelectedValue
   Me.Before_CloseTableAdapter.FillBy(Me.BeforeCloseDataSet.Before_Close, a, b)

FillbyToolStipButton_Click无法转换＆＃34;＆＃34;到整数

1 个答案: