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

这里显示当前年的前后各十年，共21个年
在combo的init事件里写

lcYear = ''
For i = Year(Date()) - 10 To Year(Date()) + 10
    lcYear = lcYear + Transform(i) + ","
Next
lcYear = Left(lcYear,Len(lcYear) - 1)
this.RowSource = lcYear
this.RowSourceType = 1

正解

如果想得到每年的月份，代码应该怎么写？

用VF6 ，提示：找不到属性ROWSOURCE

十三豆的代码运行后只有年份，没有月份。

参照十三豆的代码，可以弄出十一年的月份来。

请赐教!

*代码写在Form1的Init事件中
With
  .Clear
  .RowSourceType=1
  .Style=2
  .DisplayCount=12
  For lnYear=Year(DATE())-5 To Year(DATE())+5
    For lnMonth=1 To 12
      .AddItem(Str(lnYear,4)+'.'+Padl(lnMonth,2,'0'))
    EndFor
  EndFor
  .ListIndex=1
EndWith

收到的鲜花

• tlliqi 于 2013-02-22 15:51 送鲜花  10朵   附言：谢谢分享