Foxtable(狐表)用户栏目专家坐堂 → [求助]新增行时项目自动关闭?


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

主题:[求助]新增行时项目自动关闭?

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


加好友 发短信
等级:一尾狐 帖子:402 积分:4996 威望:0 精华:0 注册:2015/4/30 15:42:00
[求助]新增行时项目自动关闭?  发帖心情 Post By:2016/3/26 21:21:00 [只看该作者]

新增行时项目自动关闭?
问题出在全局表事件beforeselchange代码,不知道哪里错在哪里?
If e.NewRange.RowSel < 0 Then
    vars("del") = True
End If
If e.NewRange.RowSel >= 0 AndAlso vars("del") = False AndAlso e.Table.current IsNot Nothing  AndAlso e.Table.current.DataRow.RowState <> DataRowState.Unchanged AndAlso vars("add") = False Then
    If e.NewRange.RowSel <> e.OldRange.RowSel Then
        e.Cancel=True
        MessageBox.Show("当前行数据已被修改 请先保存数据再换行", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
    End If
End If
vars("add")=False
[此贴子已经被作者于2016/3/27 8:22:48编辑过]

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/3/27 10:20:00 [只看该作者]

测试没有问题,看看是不是和新增行的事件代码有冲突

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/27 11:02:00 [只看该作者]

请,做例子,上传上来测试。

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


加好友 发短信
等级:一尾狐 帖子:402 积分:4996 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2016/3/27 12:13:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:公章登记.zip
我把红色字体部分的代码去掉后,一切正常,麻烦大红袍老师看一下问题出在哪里?
[此贴子已经被作者于2016/3/27 12:15:09编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/27 12:59:00 [只看该作者]

If e.NewRange.RowSel < 0 Then
    vars("del") = True
End If
If e.Table.rows.count > 1 AndAlso e.NewRange.RowSel >= 0 AndAlso vars("del") = False AndAlso e.Table.current IsNot Nothing  AndAlso e.Table.current.DataRow.RowState <> DataRowState.Unchanged AndAlso vars("add") = False Then
    If e.NewRange.RowSel <> e.OldRange.RowSel Then
        e.Cancel=True
        MessageBox.Show("当前行数据已被修改 请先保存数据再换行", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
    End If
End If
vars("add")=False

 回到顶部