- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 空值问题3 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63961)
-- 发布时间：2015/2/2 12:47:00
-- 空值问题3
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:例子.table |
afteredit中有如下代码
If e.Col.name = "编号"
If e.Row("编号") = Nothing
MessageBox.show("对不起,编号内容禁止为空!")
e.Cancel = True
End If
End If
问题表上直接输入有用，但是窗体上录入不起作用，请问如何设置？
-- 发布时间：2015/2/2 13:00:00
--
窗口录入时不提示
-- 发布时间：2015/2/2 13:14:00
--
ValidateEdit事件 If e.Col.Name = "编号" Then \'如果正在输入的是折扣列 If e.Text > "" Then \'如果已经输入内容 Else e.Cancel = True \'则禁止退出编辑模式 End If End If
[此贴子已经被作者于2015-2-2 13:16:00编辑过]
-- 发布时间：2015/2/2 14:00:00
--
参考帮助,利用DataColChangIng事件 http://www.foxtable.com/help/topics/0624.htm
-- 发布时间：2015/2/2 15:05:00
--
窗口录入中还是不起作用,咋办
-- 发布时间：2015/2/2 15:10:00
--
以下是引用阿依肯在2015-2-2 15:05:00的发言：
窗口录入中还是不起作用,咋办
DataColChangIng
If e.DataCol.name = "编号"
If e.NewValue = Nothing Then
MessageBox.show("对不起,编号内容禁止为空!")
e.Cancel = True
End If
End If
-- 发布时间：2015/2/2 15:12:00
--
或者，在窗口控件Validating事件
If e.Sender.Text = Nothing Then
MessageBox.show("对不起,编号内容禁止为空!")
e.Cancel = True
End If
-- 发布时间：2015/2/2 15:36:00
--
If e.Sender.Text = Nothing Then
MessageBox.show("对不起,编号内容禁止为空!")
e.Cancel = True
End If
这样针对窗体的所有控件,指定某一控件该代码怎么改?
-- 发布时间：2015/2/2 15:39:00
--
1.用DataColChangIng事件的方案更加好.
2.判断TExt 应该用 = ""
3.指定控件名即可
if e.form.controls("控件名").text = "" then
-- 发布时间：2015/2/2 16:03:00
--
请看看这个例子,我想要的是在窗体上录入数据时某一列不为空
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:例子.table |