数据窗口控件ItemError事件中必需的编程

数据窗口控件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