list 控件用代码指定数据源解决方法

list 控件用代码指定数据源
如题,给个实力看下,我怎么弄不出来了呢

------解决方案--------------------
VB code
Create Cursor T1 (Fl1 C(10))
For m.lnI=1 To 10
    Insert Into T1 Values (Transform(m.lnI))
Endfor
Thisform.List1.RowSourceType=2
Thisform.List1.RowSource='T1'