以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  错误提示:未将对象引用设置到对象的实例  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51711)

--  作者:xmztwjh
--  发布时间:2014/6/1 13:04:00
--  错误提示:未将对象引用设置到对象的实例

不知道为什么,修改资产编号后,退出时选择不保存,就会出现如下错误,选择保存则不会,修改别的信息也不会。

错误信息:

有关调用实时(JIT)调试而不是此对话框的详细信息,
请参见此消息的结尾。

************** 异常文本 **************
System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 C1.Win.C1Input.DropDownForm.f()
   在 C1.Win.C1Input.DropDownForm.OnVisibleChanged(EventArgs e)
   在 System.Windows.Forms.Control.WmShowWindow(Message& m)
   在 System.Windows.Forms.Control.WndProc(Message& m)
   在 System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   在 System.Windows.Forms.ContainerControl.WndProc(Message& m)
   在 System.Windows.Forms.Form.WmShowWindow(Message& m)
   在 System.Windows.Forms.Form.WndProc(Message& m)



图片点击可在新窗口打开查看此主题相关图片如下:error.gif
图片点击可在新窗口打开查看

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 - 副本.rar

[此贴子已经被作者于2014-6-1 21:43:30编辑过]

--  作者:xmztwjh
--  发布时间:2014/6/1 17:47:00
--  
呜呜,都过六一儿童节去了
--  作者:y2287958
--  发布时间:2014/6/1 18:10:00
--  
俺这里测试正常,未出现提示。
--  作者:xmztwjh
--  发布时间:2014/6/1 21:46:00
--  
以下是引用y2287958在2014-6-1 18:10:00的发言:
俺这里测试正常,未出现提示。   
我把出现错误的过程图片传上来了,麻烦看下是怎么回事


--  作者:狐狸爸爸
--  发布时间:2014/6/3 9:39:00
--  

我测试也不出错。

 

TextChanged事件的代码这么改一下看看:

 

If e.sender.DroppedDown = False
    e.Sender.OpenDropDown
End If
Tables("选择机械_Table1").Filter = "资产编号 Like \'*" & e.sender.Text & "*\'"

 

还不行的话,下拉窗口的事件代码逐个删除,看看问题出在哪个事件。


--  作者:有点甜
--  发布时间:2014/6/3 10:01:00
--  

 在beforeClose事件加入代码

 

With  Tables("调拨表")
    If  .Current.IsNull("资产编号") OrElse .Current.IsNull("调拨时间") OrElse  _
        .Current.IsNull("调入单位") OrElse  .Current.IsNull("调出单位")  Then
        If MessageBox.Show("当前记录信息填写不全,是否放弃?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            Tables("调拨表").Current.Reject()
        Else
            e.Cancel = True
            Return
        End If
    End If
End With
SystemReady = False
If Tables("调拨表").Current.DataRow.RowState <> DataRowState.Unchanged Then
    If MessageBox.Show("当前记录已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        Tables("调拨表").Current.Save()
    Else
        Tables("调拨表").Current.Reject()
    End If
End If
SystemReady = True


--  作者:xmztwjh
--  发布时间:2014/6/4 13:31:00
--  
谢谢版主,解决了