如何编写自定义函数GetItemAny，使其能从任何数据类型里取值
函数名称：gf_GetItemMany(datawindow ad_dw,long al_row,string as_column)
函数作用：获取指定数据窗口中指定字段的值
string ls_typeany la_rtn
ls_type=Trim(ad_dw.Describe(as_column+".ColType"))choose case Lower(Left(ls_Type,3)) case "cha" la_rtn=ad_dw.GetItemString(al_row,as_column) case "dat" if ls_type="date" then la_rtn=ad_dw.GetItemDate(al_row,as_column) else //datatime la_rtn=ad_dw.GetItemDateTime(al_row,as_column) end if case "int","lom","num","rea","ulo" la_rtn=ad_dw.GetItemNumber(al_row,as_column) case "dec" la_rtn=ad_dw.GetItemDecimal(al_row,as_column) case "tim" //time or timerstamp la_rtn=ad_dw.GetItemTime(al_row,as_column)end chooseif IsNull(la_rtn) then la_rtn=''return 0 //String(la_rtn)下面的和原出处不一致，所以也不知是不是对。（原：return String(la_rtn)）但有错误提示
发表于2006年04月22日 5:23 PM