Foxtable(狐表)用户栏目专家坐堂 → 系统错误


  共有2078人关注过本帖树形打印复制链接

主题:系统错误

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


加好友 发短信
等级:小狐 帖子:384 积分:3457 威望:0 精华:0 注册:2016/11/12 18:42:00
系统错误  发帖心情 Post By:2020/7/9 17:07:00 [只看该作者]

刚才在DataColChanged 添加了下列,出现
Select Case e.DataCol.name
    Case
 "楼号","宿舍"
        
Dim dr As DataRow = e.DataRow
        
If dr.IsNull("楼号") = False AndAlso dr.IsNull("宿舍") = False Then
            If e.DataTable.Compute("Count([_Identify])","楼号 = '" & dr("楼号") & "' And 宿舍 = '" & dr("宿舍") & "'") > 1 Then
                MessageBox.Show(
"已经存在相同楼号和宿舍的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.
DataRow(e.DataCol.Name) = e.OldValue '取消输入
            
End If
        End
 If
End
 
Select

图片点击可在新窗口打开查看此主题相关图片如下:360截图20200709170116846.jpg
图片点击可在新窗口打开查看

进入后点击确定,自动退出
[此贴子已经被作者于2020/7/9 17:07:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/9 17:24:00 [只看该作者]

DataColChanged 还有没有其它代码,全部发上来看看

 回到顶部
帅哥哟,离线,有人找我吗?
nxdx112
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:384 积分:3457 威望:0 精华:0 注册:2016/11/12 18:42:00
  发帖心情 Post By:2020/7/9 17:37:00 [只看该作者]

按住ctrl 进入后项目后在该表属性中删除了代码就好了,谢谢!

 回到顶部