主题：系统直接崩溃

我在 “主计划异动单头”表的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