问题描述
代码：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了
能不能留个联系方式。在线请教下。这个地方不懂的东西太多。
解决方案十二：
代码：PrivateSub增加_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles增加.ClickIf增加.Text="确认"ThenobjConn.Open()DimbianhaoAsNewOleDbParameter("@bianhao",OleDbType.Numeric,10)DimxingmingAsNewOleDbParameter("@xingming",OleDbType.Char,10)DimjgAsNewOleDbParameter("@jg",OleDbType.Numeric,10)DimqkAsNewOleDbParameter("@qk",OleDbType.Numeric,10)DimsgAsNewOleDbParameter("@sg",OleDbType.Numeric,10)DimstrinAsString="Insertinto工资表(编码,姓名,基本工资,缺勤扣费,实发工资)"&"Values(@bianhao,@xingming,@jg,@qk,@sg)"DimobjCmdAsNewOleDbCommand(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.Textxingming.Value=TextBox2.Textjg.Value=TextBox3.Textqk.Value=TextBox4.Textsg.Value=TextBox5.TextobjCmd.ExecuteNonQuery()objConn.Close()DimstrSql="Select*From工资表"objAdap.SelectCommand=NewOleDbCommand(strSql,objConn)objDSet.Clear()objAdap.Fill(objDSet,"工资表")增加.Text="增加"'IfmyBind.Count>1AndmyBind.Count<>""ThenmyBind.Position=myBind.Count-1MsgBox("更新成功")ElseTextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""增加.Text="确认"EndIfEndSub错误行代码：myBind.Position=myBind.Count-1错误提示：未处理NullReferenceException未将对象引用设置到对象的实例。疑难解答提示：使用new创建关键字对象在调用方法前确定对象是否为空
解决方案十三：
代码：PrivateSub增加_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles增加.ClickIf增加.Text="确认"ThenobjConn.Open()DimbianhaoAsNewOleDbParameter("@bianhao",OleDbType.Numeric,10)DimxingmingAsNewOleDbParameter("@xingming",OleDbType.Char,10)DimjgAsNewOleDbParameter("@jg",OleDbType.Numeric,10)DimqkAsNewOleDbParameter("@qk",OleDbType.Numeric,10)DimsgAsNewOleDbParameter("@sg",OleDbType.Numeric,10)DimstrinAsString="Insertinto工资表(编码,姓名,基本工资,缺勤扣费,实发工资)"&"Values(@bianhao,@xingming,@jg,@qk,@sg)"DimobjCmdAsNewOleDbCommand(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.Textxingming.Value=TextBox2.Textjg.Value=TextBox3.Textqk.Value=TextBox4.Textsg.Value=TextBox5.TextobjCmd.ExecuteNonQuery()objConn.Close()DimstrSql="Select*From工资表"objAdap.SelectCommand=NewOleDbCommand(strSql,objConn)objDSet.Clear()objAdap.Fill(objDSet,"工资表")增加.Text="增加"'IfmyBind.Count>1AndmyBind.Count<>""ThenmyBind.Position=myBind.Count-1MsgBox("更新成功")ElseTextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""增加.Text="确认"EndIfEndSub错误行代码：myBind.Position=myBind.Count-1错误提示：未处理NullReferenceException未将对象引用设置到对象的实例。疑难解答提示：使用new创建关键字对象在调用方法前确定对象是否为空