主题：狐表停止运作，求解！

现在发现有部份客户端在运行时出现如下错误，难以发现问题所在，因为根据客户反映，发生错误时正在编辑窗口中的某一文本框，而有些文本框或其所挷定的字段也没什么事件代码的。请问这种情况应如何查找原因？

此主题相关图片如下：img_30042014_151526.png

DataColChanged事件代码如下：

 Case "wf_bz_kbcqb"
        Dim dr As DataRow = DataTables("pkl2").Find("part_no = '" & e.DataRow("part_no") & "' And sheet_sta = '未审核'")
        If dr IsNot Nothing Then
            dr("kbcc_k")= e.DataRow("wf_bz_kbcqb")
           
        End If
    Case "wf_bz_kbcc"
        Dim dr As DataRow = DataTables("pkl2").Find("part_no = '" & e.DataRow("part_no") & "' And sheet_sta = '未审核'")
        If dr IsNot Nothing Then
            dr("kbcc_g")= e.DataRow("wf_bz_kbcc")
           
        End If
       
       
            Case "产品编码"
        Dim dr As DataRow
        dr = DataTables("osal_ord2").Find("part_no = '" & e.DataRow("part_no") & "'")
        If dr IsNot Nothing Then
            e.DataRow("订单ID")=dr("id")
        End If
    Case "act_sw"
        If e.DataRow.IsNull("act_sw") Or e.DataRow("act_sw") = False Then
            Dim cmd1 As New SQLCommand
            cmd1.C
            cmd1.CommandText = "UPDATE {obas_part} SET [act_sw] = 1 Where [part_no] = '" & e.DataRow("part_no") & "'"
            cmd1.ExecuteNonQuery()
            Dim cmd2 As New SQLCommand
            cmd2.C
            cmd2.CommandText = "UPDATE {cpcbsj} SET [sheet_sta] = '未审核' Where [part_no] = '" & e.DataRow("part_no") & "'"
            cmd2.ExecuteNonQuery()

        ElseIf e.DataRow("act_sw") = True Then
           
            Dim cmd1 As New SQLCommand
            cmd1.C
            cmd1.CommandText = "UPDATE {obas_part} SET [act_sw] = 0 Where [part_no] = '" & e.DataRow("part_no") & "'"
            cmd1.ExecuteNonQuery()
 Dim cmd2 As New SQLCommand
            cmd2.C
            cmd2.CommandText = "UPDATE {cpcbsj} SET [sheet_sta] = '已失效' Where [part_no] = '" & e.DataRow("part_no") & "'"
            cmd2.ExecuteNonQuery()

        End If

 Case "leadtime"           
            Dim cmd1 As New SQLCommand
            cmd1.C
            cmd1.CommandText = "UPDATE {obas_part1} SET [pur_leadtime] = " & e.DataRow("leadtime") & " Where [part_no] = '" & e.DataRow("part_no") & "'"
            cmd1.ExecuteNonQuery()

    Case "invodw"
        Dim dr As DataRow
        dr = DataTables("Invoice2").Find("part_no = '" & e.DataRow("part_no") & "'")
        If dr IsNot Nothing Then
            dr("invodw") = e.DataRow("invodw")
        Else
            Dim cmd1 As New SQLCommand
            cmd1.C
            cmd1.CommandText = "UPDATE {Invoice2} SET [invodw] = '" & e.DataRow("invodw") & "' Where [part_no] = '" & e.DataRow("part_no") & "'and [sheet_sta] = '未审核'"
            cmd1.ExecuteNonQuery()
           
        End If

Case "pakdw"
        Dim dr As DataRow
        dr = DataTables("pkl2").Find("part_no = '" & e.DataRow("part_no") & "'")
        If dr IsNot Nothing Then
            dr("pakdw") = e.DataRow("pakdw")
        Else
            Dim cmd1 As New SQLCommand
            cmd1.C
            cmd1.CommandText = "UPDATE {pkl2} SET [pakdw] = '" & e.DataRow("pakdw") & "' Where [part_no] = '" & e.DataRow("part_no") & "'and [sheet_sta] = '未审核'"
            cmd1.ExecuteNonQuery()
           
        End If

Case "ktxh"
        Dim dr As DataRow
        dr = DataTables("pkl2").Find("part_no = '" & e.DataRow("part_no") & "'")
        If dr IsNot Nothing Then
            dr("ktxh") = e.DataRow("ktxh")
        Else
            Dim cmd1 As New SQLCommand
            cmd1.C
            cmd1.CommandText = "UPDATE {pkl2} SET [ktxh] = '" & e.DataRow("ktxh") & "' Where [part_no] = '" & e.DataRow("part_no") & "'and [sheet_sta] = '未审核'"
            cmd1.ExecuteNonQuery()
           
        End If

Case "nfdh"
        Dim dr As DataRow
        dr = DataTables("pkl2").Find("part_no = '" & e.DataRow("part_no") & "'")
        If dr IsNot Nothing Then
            dr("nfdh") = e.DataRow("nfdh")
        Else
            Dim cmd1 As New SQLCommand
            cmd1.C
            cmd1.CommandText = "UPDATE {pkl2} SET [nfdh] = '" & e.DataRow("nfdh") & "' Where [part_no] = '" & e.DataRow("part_no") & "'and [sheet_sta] = '未审核'"
            cmd1.ExecuteNonQuery()
           
        End If
     
    Case Else
        e.DataRow("update_date")=Date.Now
        e.DataRow("update_user")=Vars("_UserName")
       
End Select

今天客户说是正在窗口中输入“wf_cp_ggrem”相关的文本框时就出现错误，而上次是“wf_bz_rem”这个字段相关的多行文本框时也发生同样的错误。

系统是win7繁体版，原本就有.net frameword的请问要重装什么版本的呢？好像win7的版本.net 比较高，不知这个有没影响？最麻烦的是出错时都没提示是那个事件有问题，没从下手。

表osal_ord2的

DataColChanged

事件代码:

Select e.DataCol.Name
    Case "sheet_no"
        If e.DataRow.IsNull("sheet_no") Then
            e.DataRow("sheet_lot") = Nothing
        Else
            Dim lb As String = e.DataRow("sheet_no")
            If e.DataRow("sheet_lot").StartsWith(lb) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(sheet_lot)","sheet_no = '" & lb & "'") '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    Dim n As Integer
                    n =max.IndexOf("_")
                    If n <>-1 Then
                        idx = CInt(max.Substring(n+1,3)) + 1 '获得最大编号的后三位顺序号,并加1
                    End If
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("sheet_lot") = lb & "_" & Format(idx,"000")
            End If
        End If
    Case "part_no"
        Dim cmd As New SQLCommand
        Dim cmd1 As new SQLCommand
        Dim dt As DataTable
        Dim dt1 As DataTable
        cmd.C
        cmd.CommandText = "SELECT part_no,wf_cp_gz,wf_cp_ggrem,cu_part_no,wf_bz_fs,wf_edino,cu_part_no,wf_jsbkd,wf_bomkd,wf_scbkd,sheet_sta,wf_bzkd From {obas_part_spec} where [part_no] = '" & e.DataRow("part_no") &"'"
        cmd1.C
        cmd1.CommandText = "SELECT part_no,sal_unit_no From {obas_part1} where part_no = '" & e.DataRow("part_no") &"'"
        dt = cmd.ExecuteReader()
        dt1 = cmd1.ExecuteReader()
        Dim dr As DataRow
        dr = dt.Find("part_no = '" & e.DataRow("part_no") & "'")
        If dr IsNot Nothing '如果找到, 则设置各列内容
            e.DataRow("国家")= dr("wf_cp_gz")
            e.DataRow("客户编码")= dr("cu_part_no")
            e.DataRow("rem")= dr("wf_cp_ggrem") & "/ 电脑纹No." & dr("wf_edino") & "/ ABUS NO." & dr("cu_part_no")
            e.DataRow("define1")= dr("wf_bz_fs")
            e.DataRow("wf_jsbkd")= dr("wf_jsbkd")
            e.DataRow("wf_bomkd")= dr("wf_bomkd")
            e.DataRow("wf_scbkd")= dr("wf_scbkd")
            e.DataRow("wf_bzkd")= dr("wf_bzkd")

            e.DataRow("wf_guigesheet_sta")= dr("sheet_sta")

        Else
            e.DataRow("国家")= Nothing
            e.DataRow("客户编码")= Nothing
            e.DataRow("wf_jsbkd")= Nothing
            e.DataRow("wf_bomkd")= Nothing
            e.DataRow("wf_scbkd")= Nothing
            e.DataRow("wf_guigesheet_sta")= Nothing
        End If
       
        Dim dr1 As DataRow =dt1.DataRows(0)
        e.DataRow("sal_unit")= dr1("sal_unit_no")
        Dim dr2 As DataRow=DataTables("料品资料查询表").Find("part_no = '" & e.DataRow("part_no") & "'")
        If dr2 IsNot Nothing Then
           Return
        Else
            Dim s As String =e.DataRow("part_no")
           If s ="1" Then
                Return
            Else
                'Dim Filter As String = "[part_no] = '" & s & "'"
                DataTables("料品资料查询表").Load()
                End If
        End If
    Case "wf_answer_date"
         If e.DataRow.IsNull("wf_answer_date") = False And e.DataRow("affirm_date") <> e.DataRow("wf_answer_date") Then
          e.DataRow("affirm_date") = e.DataRow("wf_answer_date")
         End If

End Select

从这些代码来看应该没死循环情况吧？如果有的话，应该每次都出现吧，那为什么有时才会出错，出错之后只能重新启动？

什么输入法会这样？像香港那边的输入法应该没多少的吧？我也试过重装.NET的，真的不知从何查起！提供例子吧，这个也不好搞。