那位高手前来相助

代码： myBind.Position = myBind.Count - 1
错误：未将对象引用设置到对象的实例。 --------------------编程问答-------------------- 你这里的myBind存在？或者是不是为空，检查下这个对象。 --------------------编程问答--------------------

引用楼主 yuanfanghuanmen 的回复:

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

确定myBind.Count大于1？
你先经过判断吧

myBind.Position = myBind.Count>0?myBind.Count - 1:myBind.Count;

--------------------编程问答-------------------- if(myBind!=null)
{
   做你要做的事情
}
--------------------编程问答-------------------- if(myBind!=null)
{
   做你要做的事情
}
--------------------编程问答--------------------

引用 4 楼 wanghui0380 的回复:

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

＋1 --------------------编程问答--------------------

引用 4 楼 wanghui0380 的回复:

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

能不能给个 联系方式（比如qq）在线交流一下，发帖子太慢了
我有很多问题弄不懂 --------------------编程问答--------------------

引用 4 楼 wanghui0380 的回复:

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

能不能留个联系方式（比如qq）。在线交流一下
发帖子太慢了 --------------------编程问答--------------------  myBind=null了 --------------------编程问答--------------------  myBind=null了 --------------------编程问答--------------------

引用 9 楼 hhqsy 的回复:

 myBind=null了

能不能留个联系方式。在线请教下。
这个地方不懂的东西太多。
--------------------编程问答-------------------- 代码：
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创建关键字对象
            在调用方法前确定对象是否为空 --------------------编程问答-------------------- 代码：
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创建关键字对象
            在调用方法前确定对象是否为空

补充：.NET技术 ,  ASP.NET