Question

将数据集从类函数传递到另一个函数时出现问题。如果我在表单中包含所有代码，一切正常。顺序是在一个按钮中调用学生，然后在另一个按钮中调用更新。当我单击更新按钮时，我得到一个未设置对象的错误。我发现OdataAdapter并没有被填充。所有更新都用于更新由学生填充的数据网格视图。

我在ClientSide CLASS中的功能称为学生

Public Sub Students()
    conn.Open()
    cmd.Connection = conn
    cmd.CommandText = "Select * from Students"
    cmd.CommandType = CommandType.Text
    ODataAdapter = New OracleDataAdapter(cmd2)
  Dim builder As OracleCommandBuilder = New OracleCommandBuilder(ODataAdapter)
    myDataSet = New DataSet()
    dt = New DataTable
    ODataAdapter.Fill(dt)
    Form1.DataGridView3.DataSource = dt
    conn.Close()
End Sub

ClientSide CLASS中的MY函数名为Updates

Public Sub Updates()

    Using conn = New OracleConnection(ODataAdapter)
        conn.Open()
        ODataAdapter.Update(dt)
        myDataSet.AcceptChanges()
        conn.Close()
    End Using
End Sub

我的表单调用更新

Private Sub Update_Click(sender As System.Object, e As System.EventArgs) Handles Update.Click, Update.Click
    Dim myClassInstance As New ClientSide         
myClassInstance.Updates() 
End Sub

Vb.net在函数之间传递数据集

0 个答案: