我在做查询表单时，找不到creatcond事件，请高手指点，谢啦

&&根据fieldn类型将字符串fvalue转换成相应类型的值
PARAMETERS fieldn,fvalue
fieldtype = TYPE(fieldn)
do case
  CASE fieldtype $ "CM"                                 &&字符型和备注型
       fvalue = CHR(34) + ALLTRIM(fvalue) + CHR(34)     &&加上双引号
  CASE fieldtype $ "DT"                                 &&日期型和时间型
       fvalue = "ctod('" + ALLTRIM(fvalue) + "')"       &&转换成日期型
  CASE fieldtype $ "NY"                                 &&数值型
       IF EMPTY(fvalue)
          fvalue = "0"
        ENDIF
  CASE fieldtype $ "L"                                  &&逻辑型
       IF !INLIST(UPPER(fvalue), ".T.", ".F.")
          fvalue = ".T."
          ENDIF
    ENDCASE
    RETURN fvalue
请问一下楼上的这个要写在哪个事件呢

谢啦

我用的V7不知道要怎么自定义呢