以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有客户电脑发现一个错误,但在我的电脑没发现,求助!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82104)

--  作者:yankunhao
--  发布时间:2016/3/11 15:10:00
--  有客户电脑发现一个错误,但在我的电脑没发现,求助!

请问在打开一窗口时出出如下提示,是什么意思?如何查找原因?

 

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

************** 异常文本 **************
System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 Foxtable.WinForm.Control.WriteValue()
   在 Foxtable.WinForm.Form.O__ooo_o(Object A_0, FormClosingEventArgs A_1)
   在 System.Windows.Forms.Form.OnFormClosing(FormClosingEventArgs e)
   在 System.Windows.Forms.Form.WmClose(Message& m)
   在 System.Windows.Forms.Form.WndProc(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   在 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** 已加载的程序集 **************


--  作者:大红袍
--  发布时间:2016/3/11 15:26:00
--  

是不是这个问题? 并列窗口?

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=62170&authorid=0&page=0&star=1

 

[此贴子已经被作者于2016/3/11 15:26:38编辑过]

--  作者:大红袍
--  发布时间:2016/3/11 15:28:00
--  

 

是一直都出错,还是具体怎样操作之后才报错,还是随机出错?加入msgbox检查一下代码


--  作者:yankunhao
--  发布时间:2016/3/11 15:57:00
--  

客户系统(WIN7)是随机出错的,没并列窗口,操作过程是:在一表的行中双击,然后会根据其中一列的内容,打开不同的独立窗口。

 

 

DoubleClick

双击单元格后执行。

e参数属性:

Table:  引发事件的表
Row:    引发事件的行
Col:    引发事件的列
Cancel: 逻辑型,设置为True,将禁止双击单元格进入编辑状态。

 

 

代码:

 

Dim s As String = ""
Dim r As Row = Tables("obas_part_spec").Current
If r IsNot Nothing Then
    s = r("产品类别")
 
End If

Select Case s
   
    Case "铝门锁","鹅旦锁","有尾门锁"
       
        Forms("产品规格表2").Show
       
    Case Else
       
        Forms("产品规格表").Show
       
End Select


--  作者:yankunhao
--  发布时间:2016/3/11 16:26:00
--  
这个情况很难检查
--  作者:大红袍
--  发布时间:2016/3/11 17:34:00
--  

改成这样看看

 

e.Cancel = True

Dim s As String = ""
s = e.row("产品类别")

Select Case s
    Case "铝门锁","鹅旦锁","有尾门锁"
        Forms("产品规格表2").Show
    Case Else
        Forms("产品规格表").Show
End Select