数据窗口 字段校验解决思路

数据窗口 字段校验
数据窗口中有一个字段 生日 birth  数据库中的类型是 char(8) 请问 修改该字段时我要怎么校验。才行。我是PB菜鸟，最后说详细点，谢谢。在线等~
------解决方案--------------------

choose case dwo.name
    case birth 
string ls_str
ls_str = left(data,4)+'-'+mid(data,5,2)+'-'+right(data,2)
        if not isdate(ls_str)then
            messagebox('错误','不是有效时间')
            return 1
        end if
end choose