属性设置里能不能写代码呀?怎样写？

[发现代码]

请教：表单控件属性设置里能不能写代码呀?该怎样写啊？比如：如何在combo的rowsource属性和rowsourcetype属性里用代码设置，达到显示近前后十年的年度的要求？

[十豆三]

在 ComboBox 控件的 Init 事件写代码：

This.RowSourceType=0
For lnI=-5 To 5
	This.AddItem(Transform(Year(Date())+lnI))
Endfor
This.DisplayCount=11	&& 11年的数据