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

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

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

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1536 积分：9956 威望：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

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

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1536 积分：9956 威望：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

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1536 积分：9956 威望：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 那里去增加数据行是不会有这个提示的。