数据窗口控件ItemError事件中必需的编程 在数据窗口中录入数据时,如果输入错误,给本来没有内容的单元输入了数据,就应该删除。但是,删除后的内容自动变为'', 如果字段的类型是字符类型,则不会有错误产生,如果是其它类型的,则会产生校验错误,并显示错误提示,并且不允许焦点切换。下面这段程序就是解决该问题 的,该程序是通用程序,并且也是数据窗口ItemError事件中必需的程序。 String ls_colname String ls_datatype ls_colname = dwo.Name ls_datatype = dwo.ColType IF Trim(data) "" THEN RETURN 0 CHOOSE CASE Lower(left(ls_datatype,3)) CASE "lon","int","num","rea","ulo","dec" integer null_num SetNull(null_num) This.SetItem(row, ls_colname, null_num) RETURN 3 CASE "dat" date null_date SetNull(null_date) This.SetItem(row, ls_colname, null_date) RETURN 3 Case "tim" date null_time SetNull(null_time) This.SetItem(row, ls_colname, null_time) RETURN 3 END CHOOSE