请指教关于录入数据如何设置有效性 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请指教关于录入数据如何设置有效性

共有11602人关注过本帖树形打印复制链接主题：请指教关于录入数据如何设置有效性

狐狸爸爸

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

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/30 10:34:00 [显示全部帖子]

DataColChanged事件代码：

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

Case "总代码"

If dr("总代码") <> dr("大类代码") & dr("小类代码") & dr("名称代码") & dr("规格代码") Then

MessageBox.show("兄弟，错了")

End If

End Select

狐狸爸爸

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

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/30 10:52:00 [显示全部帖子]

表属性 - 事件 - DataColChanged

作为初学者，最好按顺序系统性的看两三遍帮助，如果跳跃式地看帮助，会越看越糊涂。

图片点击可在新窗口打开查看

狐狸爸爸

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

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/30 15:17:00 [显示全部帖子]

改代码位置，设置在ValidateEdit事件：

Dim dr As Row = e.Row

Select Case e.Col.Name

Case "总代码"

If e.Text <> dr("大类代码") & dr("小类代码") & dr("名称代码") & dr("规格代码") Then

MessageBox.show("兄弟，错了")

e.Cancel = True

End If

End Select

[此贴子已经被作者于2011-8-30 15:17:45编辑过]

主题：请指教关于录入数据如何设置有效性