FindRequired()
在实际应用中经常需要**表中一些域的属性,例如银行客户表中账号就不能为Null。在提交数据前检查是否将必须输入的数据都赋值是一个很好的编程习惯。FindRequired函数可以解决此问题,它通过对数据窗口中数据的检查,将数据窗口中域的属性为Required,而并未赋值的域(包括相应的行、列)找出来。为了利用此函数,在构造数据窗口时就要注意将表中具有NOT NULL属性的数据列设为Required(方法为:在数据窗口相应域上按鼠标右键或双击左键,弹出Column Object 框,选Edit页,将Required前的框选中,按Ok钮即可)。在相应事件中插入下列程序:
long ror=1 //行数赋1
integer colnbr=0 //列数赋0
string colname //用来存储列名
mle_required.Text = "" //窗口中的多行编辑控件,用来存储找到域的行、列号
DO WHILE row <> 0
colnbr++ //继续找下一列
IF dw_1.FindRequired(Primary!,row, colnbr,colname, FALSE) < 0 THEN EXIT
//若程序出错则返回
IF row <> 0 THEN
mle_required.Text = mle_required.Text + String(row) + "～t" &+ colname + "～r～n" //保存查出的行、列号
END IF
//当ROW返回为 0 则意味再没有查出,跳出循环
LOOP
程序执行完后,多行编辑框中显示的为出错的地方,用户根据提示可以轻易地更改。
FindRequired函数中的Row、Colnbr参数能自动增加或重置,Colname用来存放列的字符名。
页:
[1]