请教下，如何实现输入的数据与指定的数据进行比对，如果不符合则提示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教下，如何实现输入的数据与指定的数据进行比对，如果不符合则提示

共有1423人关注过本帖树形打印复制链接主题：请教下，如何实现输入的数据与指定的数据进行比对，如果不符合则提示

SUV2258

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

加好友

发短信

等级：幼狐帖子：76 积分：731 威望：0 精华：0 注册：2020/9/1 6:19:00

请教下，如何实现输入的数据与指定的数据进行比对，如果不符合则提示 发帖心情

Post By：2024/11/26 14:58:00 [只看该作者]

你好老师，表格中有名称为：工作压力、要求整定压力、整定压力和密封实验压力三列，我想实现下列功能，请你给帮助下：

1、当在要求整定压力列输入数值后，整定压力也同时出现输入的数值；

2、向密封实验列中输入的数据要符合以下要求：密封实验压力的数值大于等于工作压力；密封实验压力列的数值大于等于整定压力数值的90%且小于整定压力数值。

有点蓝

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

加好友

发短信

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

Post By：2024/11/26 15:22:00 [只看该作者]

1、参考：http://www.foxtable.com/webhelp/topics/1469.htm、http://www.foxtable.com/webhelp/topics/1452.htm

If e.DataCol.Name = "要求整定压力" Then
e.DataRow("整定压力") = e.DataRow("要求整定压力")
End If

2、参考：http://www.foxtable.com/webhelp/topics/0624.htm

If e.DataCol.Name = "密封实验" Then
If e.NewValue < e.DataRow("工作压力") orelse e.NewValue < (e.DataRow("整定压力") * 0.9) orelse e.NewValue >= e.DataRow("整定压力") Then

msgbox(不符合要求")

e.Cancel = True
End If
End If

SUV2258

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

加好友

发短信

等级：幼狐帖子：76 积分：731 威望：0 精华：0 注册：2020/9/1 6:19:00

Post By：2024/12/2 16:04:00 [只看该作者]

老师，当有多列数据同时等于要求整定压力时，代码如何更改下，例如，现增加了，第一次实际整定压力列，第二次实际整定压力列，第三次实际整定压力列，在要求整定压力输入数值后，这三列也同时出现数值

有点蓝

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

加好友

发短信

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

Post By：2024/12/2 16:13:00 [只看该作者]

整多几行就行了

If e.DataCol.Name = "要求整定压力" Then
    e.DataRow("整定压力") = e.DataRow("要求整定压力")
    e.DataRow("第一次实际整定压力") = e.DataRow("要求整定压力")
    e.DataRow("第2次实际整定压力") = e.DataRow("要求整定压力")

……
End If