以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  DataColChanging中MessageBox.Show出现死机  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176126)

--  作者:fntfgz
--  发布时间:2022/3/31 17:52:00
--  DataColChanging中MessageBox.Show出现死机
老师,当我加上“MessageBox.Show("此订单号已经存在!")” 就会死机,但是第一个MessageBox.Show就没问题,可以正常显示,当我注释掉MessageBox.Show("此订单号已经存在!")也可以正常,为啥加上这句就死机呢?

Select Case e.DataCol.Name
    Case "联系电话"
        Dim dr As DataRow
        dr = e.DataTable.Find("联系电话 = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then
            MessageBox.Show("此联系电话已经存在!")
            e.Cancel = True
        End If
    Case "选科"
        Dim vals() As String = e.NewValue.Split(",")
        If vals.Length<>3 Then
            MessageBox.Show("此订单号已经存在!")
            e.Cancel = True \'则取消更改
        End If
End Select

--  作者:有点蓝
--  发布时间:2022/3/31 20:09:00
--  
请提供实例测试