高手,请问
高手,请教!
各位高手,请教个问题
现今小弟想要将窗体上的每个控件的类型,以字符形式存入数据表中.请问如何将控件的类型放入字符型变量中,谢谢!
------解决方案--------------------
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
各位高手,请教个问题
现今小弟想要将窗体上的每个控件的类型,以字符形式存入数据表中.请问如何将控件的类型放入字符型变量中,谢谢!
------解决方案--------------------
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