共10 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：不允许你增加新的数据行

1楼

edisontsui 发表于：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楼

有点蓝 发表于：2024/7/31 10:08:00

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

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

3楼

edisontsui 发表于：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

4楼

cd_tdh 发表于：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楼

有点蓝 发表于：2024/7/31 11:07:00

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

6楼

edisontsui 发表于：2024/7/31 12:35:00

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

7楼

有点蓝 发表于：2024/7/31 13:35:00

使用文字说明一下这个代码想实现什么功能，按什么逻辑判断！

8楼

edisontsui 发表于：2024/7/31 15:01:00

BeforeAddDaraRow 的如下代码

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

e.Cancel = True

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

End If

想实现的功能：

如果不是开发者这个用户，以及不是财务那个用户组，以及不是行政那个用户组，就不准增加数据行。

9楼

有点蓝 发表于：2024/7/31 15:06:00

如果说3个条件只要有一个符合就可以新增，参考

If User.name = "开发者" orelse user.group = "财务" orelse user.group = "行政" Then

else

e.Cancel = True

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

End If

10楼

edisontsui 发表于：2024/8/1 7:44:00

好像可以了，我再留意一下。请问用8楼和9楼的方式为什么结果会不同呢？

共10 条记录, 每页显示 10 条, 页签: [1]