那位高手前来相助

Question

代码： myBind.Position = myBind.Count - 1
错误：未将对象引用设置到对象的实例。

Answer 1

你这里的myBind存在？或者是不是为空，检查下这个对象。

Answer 2

确定myBind.Count大于1？
你先经过判断吧myBind.Position = myBind.Count>0?myBind.Count - 1:myBind.Count;

Answer 3

if(myBind!=null)
{
   做你要做的事情
}

Answer 4

if(myBind!=null)
{
   做你要做的事情
}

Answer 5

代码：
Private Sub 增加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 增加.Click        If 增加.Text = "确认" Then
            objConn.Open()
            Dim bianhao As New OleDbParameter("@ bianhao", OleDbType.Numeric, 10)
            Dim xingming As New OleDbParameter("@ xingming", OleDbType.Char, 10)
            Dim jg As New OleDbParameter("@ jg", OleDbType.Numeric, 10)
            Dim qk As New OleDbParameter("@qk", OleDbType.Numeric, 10)
            Dim sg As New OleDbParameter("@sg", OleDbType.Numeric, 10)
            Dim strin As String = "Insert into 工资表(编码,姓名,基本工资,缺勤扣费,实发工资)" & "Values(@bianhao,@xingming,@jg,@qk,@sg)"
            Dim objCmd As New OleDbCommand(strin, objConn)
            objCmd.Parameters.Add(bianhao)
            objCmd.Parameters.Add(xingming)
            objCmd.Parameters.Add(jg)
            objCmd.Parameters.Add(qk)
            objCmd.Parameters.Add(sg)
            bianhao.Value = TextBox1.Text
            xingming.Value = TextBox2.Text
            jg.Value = TextBox3.Text
            qk.Value = TextBox4.Text
            sg.Value = TextBox5.Text
            objCmd.ExecuteNonQuery()
            objConn.Close()
            Dim strSql = "Select * From 工资表 "
            objAdap.SelectCommand = New OleDbCommand(strSql, objConn)
            objDSet.Clear()
            objAdap.Fill(objDSet, "工资表")
            增加.Text = "增加"
            'If myBind.Count > 1 And myBind.Count <> "" Then
            myBind.Position = myBind.Count - 1
            MsgBox("更新成功")
        Else
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            增加.Text = "确认"        End If
    End Sub
错误行代码：myBind.Position = myBind.Count - 1 
错误提示 ：未处理NullReferenceException
           未将对象引用设置到对象的实例。
疑难解答提示：
            使用new创建关键字对象
            在调用方法前确定对象是否为空

Answer 6

代码：
Private Sub 增加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 增加.Click        If 增加.Text = "确认" Then
            objConn.Open()
            Dim bianhao As New OleDbParameter("@ bianhao", OleDbType.Numeric, 10)
            Dim xingming As New OleDbParameter("@ xingming", OleDbType.Char, 10)
            Dim jg As New OleDbParameter("@ jg", OleDbType.Numeric, 10)
            Dim qk As New OleDbParameter("@qk", OleDbType.Numeric, 10)
            Dim sg As New OleDbParameter("@sg", OleDbType.Numeric, 10)
            Dim strin As String = "Insert into 工资表(编码,姓名,基本工资,缺勤扣费,实发工资)" & "Values(@bianhao,@xingming,@jg,@qk,@sg)"
            Dim objCmd As New OleDbCommand(strin, objConn)
            objCmd.Parameters.Add(bianhao)
            objCmd.Parameters.Add(xingming)
            objCmd.Parameters.Add(jg)
            objCmd.Parameters.Add(qk)
            objCmd.Parameters.Add(sg)
            bianhao.Value = TextBox1.Text
            xingming.Value = TextBox2.Text
            jg.Value = TextBox3.Text
            qk.Value = TextBox4.Text
            sg.Value = TextBox5.Text
            objCmd.ExecuteNonQuery()
            objConn.Close()
            Dim strSql = "Select * From 工资表 "
            objAdap.SelectCommand = New OleDbCommand(strSql, objConn)
            objDSet.Clear()
            objAdap.Fill(objDSet, "工资表")
            增加.Text = "增加"
            'If myBind.Count > 1 And myBind.Count <> "" Then
            myBind.Position = myBind.Count - 1
            MsgBox("更新成功")
        Else
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            增加.Text = "确认"        End If
    End Sub
错误行代码：myBind.Position = myBind.Count - 1 
错误提示 ：未处理NullReferenceException
           未将对象引用设置到对象的实例。
疑难解答提示：
            使用new创建关键字对象
            在调用方法前确定对象是否为空