关于Donews的记忆---如何编写自定义函数GetItemAny，使其能从任何数据类型里取值

如何编写自定义函数GetItemAny，使其能从任何数据类型里取值

如何编写自定义函数GetItemAny，使其能从任何数据类型里取值

函数名称：gf_GetItemMany(datawindow ad_dw,long al_row,string as_column)

函数作用：获取指定数据窗口中指定字段的值 

string ls_type
any 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 choose
if IsNull(la_rtn) then la_rtn=''
return 0 //String(la_rtn)
下面的和原出处不一致，所以也不知是不是对。（原：return String(la_rtn)）但有错误提示

发表于2006年04月22日 5:23 PM