Select Case e.DataCol.Name
Case "城市"
Dim r As DataRow = e.DataRow
Dim lr As DataRow = DataTables("承运商报价").Find("客户名称 = '" & r("客户名称") & "' And 承运商编号='" & r("承运商编号") & "' And 区域='" & r("区域") & "' And 城市='" & r("城市") & "'")
If lr IsNot Nothing Then
MessageBox.Show("该区域的目的地已经存在,请核对后另外换目的地","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
r("城市")=Nothing
else
msgbox("不存在"
End If
End Select
我加了不存在居然也会弹出, 条件不管符合不符合 MessageBox.Show("该区域的目的地已经存在,请核对后另外换目的地","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) 也会弹出
我疯了 就这么一句代码呀
在条件不符合的情况下两个弹窗都可以执行.
我判断错误 r("城市") = nothing 会提示不存在的
加好友 
发短信
Post By：2016/1/12 9:32:00 [只看该作者]
