以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  系统直接崩溃  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24688)
--  作者：关键下一秒
--  发布时间：2012/10/20 15:15:00
--  系统直接崩溃

我在 “主计划异动单头”表的datacolchinaged 事件中加入如下代码。然后在“录入窗口”中“主件品号”输入已存在的的料号，结果系统直接退出了。请问是怎么回事呢？谢谢!(在表中录入存在的料号时，是不会崩溃的。)

If e.DataCol.Name = "主件品号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("主件品号 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then

        Dim wz As Integer = Tables("主计划异动单头").FindRow(dr)
        If wz >= 0 Then
            Tables("主计划异动单头").Position = wz
        End If
         e.Cancel = True      
    End If
End If

[此贴子已经被作者于2012-10-20 15:15:59编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/10/20 15:17:00
--  
纸上不谈兵，用例子说话。