Foxtable(狐表)用户栏目专家坐堂 → 是不是我那个筋搭错了 这个简单的代码不管存在不存在都会提示!


  共有1722人关注过本帖平板打印复制链接

主题:是不是我那个筋搭错了 这个简单的代码不管存在不存在都会提示!

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
是不是我那个筋搭错了 这个简单的代码不管存在不存在都会提示!  发帖心情 Post By:2016/1/12 9:32:00 [只看该作者]

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
        End If
End Select

 回到顶部