不允许你增加新的数据行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不允许你增加新的数据行

共有1880人关注过本帖树形打印复制链接主题：不允许你增加新的数据行

edisontsui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1553 积分：10082 威望：0 精华：0 注册：2014/12/18 16:12:00

不允许你增加新的数据行 发帖心情

Post By：2024/7/31 9:13:00 [只看该作者]

有一个数据表，其beforedeletedatarow 有如下代码：

If User.name <> "开发者" AndAlso user.group <> "财务" AndAlso user.group <> "行政" Then

e.Cancel = True

Messagebox.Show("<考勤机记录> 提示：不允许你增加新的数据行!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

当开发者登录时，是可以增加数据行的，但是当 "行政" 这个组登录时，就会有 “不允许你增加新的数据行” 的提示。请问是哪里的问题呢？谢谢。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/31 10:08:00 [只看该作者]

beforedeletedatarow 这个事件是删除行前触发的。增加行检查BeforeAddDataRow事件

另外上面这个代码判断有逻辑错误，使用文字说明一下要做什么判断

edisontsui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1553 积分：10082 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2024/7/31 10:58:00 [只看该作者]

不好意思，是我上面写错了，这些代码是放在 beforeadddararow 里面的：

If User.name <> "开发者" AndAlso user.group <> "财务" AndAlso user.group <> "行政" Then

e.Cancel = True

Messagebox.Show("<考勤机记录> 提示：不允许你增加新的数据行!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

执行的时候出现的提示是“不允许你增加新的数据行!” ，而不是上段中红色部分的文字。而且提示框有一个大的倒感叹号那样子的符号。

此主题相关图片如下：0731.jpg

cd_tdh

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2024/7/31 11:03:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0326.htm

MessageBox有一个共享方法Show，用于显示对话框，语法是：

MessageBox.Show(Message, Caption, Buttons, Icon)

参数

说明

Message

要显示的信息

Caption

对话框标题

Buttons

可选参数，指定要显示的按钮，MessageBoxButtons型枚举，包括以下可选值：
　

AbortRetryIgnore：	包含“中止”、“重试”和“忽略”按钮。
OK：	包含“确定”按钮
OKCancel：	包含“确定”和“取消”按钮
RetryCancel：	包含“重试”和“取消”按钮
YesNo：	包含“是”和“否”按钮
YesNoCancel：	包含“是”、“否”和“取消”按钮

如果省略，则显示“确定”按钮。

Icon

可选参数，指定要显示的图标，MessageBoxIcon型枚举，包括以下可选值：
　

Error：	显示错误图标，由一个红色背景的圆圈及其中的白色 X 组成的。
Information：	显示信息图标，由一个圆圈及其中的小写字母 i 组成的。
None：	不显示图标。
Question：	显示提问图标，是由一个圆圈和其中的一个问号组成的。
Warning：	显示警告图标，一个黄色背景的三角形及其中的一个感叹号组成的。

看明白帮助中的语法。

Messagebox.Show("<考勤机记录> 提示：不允许你增加新的数据行!", "提示")

此主题相关图片如下：qq20240731-105936.jpg

[此贴子已经被作者于2024/7/31 11:16:00编辑过]

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/31 11:07:00 [只看该作者]

使用文字说明一下要做什么判断

edisontsui

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1553 积分：10082 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2024/7/31 12:35:00 [只看该作者]

我想增加数据行，但是无缘无故会出现 "不允许你增加新的数据行!" 这个提示，但是又不知道原因在哪里，因为我的 BeforeAddDaraRow 的设置是没有问题的。这个提示是在执行某个按钮里面的代码 Dim nr As DataRow = DataTables("CHECKINOUT").AddNew() 时出现的，如果我直接去到数据表 CHECKINOUT 那里去增加数据行是不会有这个提示的。