- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 换行、删除间关联错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53167)
-- 发布时间：2014/7/1 14:35:00
-- [求助] 换行、删除间关联错误
如附件项目；如果我新增一行，然后不做其他任何操作；直接点击删除；弹出错误；该怎么处理？
-- 发布时间：2014/7/1 14:38:00
--
这个不是处理过一次了吗
-- 发布时间：2014/7/1 14:42:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.foxdb |
-- 发布时间：2014/7/1 14:45:00
--
上次你是让我加入判断；把全局表事件BeforeSelChange中的命令改为以下命令；删除提示错误的问题是解决啦，但是如果我按Ctrl+列名 进行排序时，项目就自动关闭；如附件
If e.Table.current IsNot Nothing Then
If e.NewRange.RowSel < 0 Then
vars("del") = True
End If
If e.NewRange.RowSel >= 0 AndAlso vars("del") = False 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
End If
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.foxdb |
-- 发布时间：2014/7/1 14:45:00
--
看3楼
-- 发布时间：2014/7/1 14:47:00
--
以下是引用Bin在2014-7-1 14:45:00的发言：
看3楼
3楼项目会出现：如果我按Ctrl+列名 进行排序时，项目就自动关闭
看3楼
-- 发布时间：2014/7/1 14:51:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.foxdb |
-- 发布时间：2014/7/1 14:55:00
--
代码
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
-- 发布时间：2014/7/1 15:45:00
--
如附件：我打开 窗口1 如果我点击关联列表中有相同内容的行时，项目会自动关闭。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3 (1).foxdb |
-- 发布时间：2014/7/1 16:00:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3 (1).rar |