高手,请问

高手,请教!
各位高手,请教个问题
 现今小弟想要将窗体上的每个控件的类型,以字符形式存入数据表中.请问如何将控件的类型放入字符型变量中,谢谢!

------解决方案--------------------
Integer li_controls,i
String ls_type


li_controls=upperbound(This.Control[])
FOR i=1 TO li_controls

CHOOSE CASE This.Control[i].TypeOf()
CASE checkbox!
ls_type='checkbox'

CASE radiobutton!
ls_type='radiobutton'

CASE commandbutton!
ls_type='commandbutton'

CASE picture!
ls_type='picture'

CASE datawindow!
ls_type='datawindow'

CASE dropdownlistbox!
ils_type='
CASE dropdownpicturelistbox!
ls_type='
CASE listbox!
ls_type='listbox'

CASE multilineedit!
ls_type='mulitlineedit'
CASE editmask!
ls_type='editmask'

CASE tab!
ls_type='tab'

CASE groupbox!
ls_type='groupbox'

CASE hscrollbar!
ls_type='hscrollbar'

CASE picturebutton!
ls_type='picturebutton'
CASE listview!
ls_type='listview'

CASE picturelistbox!
ls_type='picturelistbox'

CASE singlelineedit!
ls_type='singlelineedit'

CASE treeview!
ls_type='treeview'

CASE userobject!
ls_type='userobject'

CASE vscrollbar!
ls_type='vscrollbar'

CASE graph!
ls_type='graph'

CASE olecontrol!
ls_type='olecontrol'

CASE richtextedit!
ls_type='richtextedit'
CASE statictext!
ls_type='statictext'
CASE line!
ls_type='line'
END CHOOSE
NEXT