请教：QTP中Winlist下无法获得chekbox问题

hxcan

想动态点击WinListView和WinList中的checkbox，但是对象库找不到对象，同时object spy也找不到，想使用描述性编程，，但是newobjects集合没获得对象，
为什么，请高手指点中间的问题,此问题困惑好久，最好能帮忙写个范例，本人菜鸟，谢谢了！
录制的脚本为：
Window("BeyonDB DBA 管理器 [II]").Window("1").WinTreeView("SysTreeView32").Select "用户"
Window("BeyonDB DBA 管理器 [II]").Window("1").WinTreeView("SysTreeView32").Select "用户", micRightBtn
Window("BeyonDB DBA 管理器 [II]").Window("1").WinObject("ingres_dbatool_mdi_dom").WinMenu("ContextMenu").Select "创建(r)..."
Window("BeyonDB DBA 管理器 [II]").Dialog("创建用户--(local)").WinEdit("用户名:").Set "aaaa"
Window("BeyonDB DBA 管理器 [II]").Dialog("创建用户--(local)").WinListView("缺省概要:").Select "Create Database"
Window("BeyonDB DBA 管理器 [II]").Dialog("创建用户--(local)").WinList("访问未授权数据库:").Select "aa"
Window("BeyonDB DBA 管理器 [II]").Dialog("创建用户--(local)").WinList("访问未授权数据库:").Select "aaa"
Window("BeyonDB DBA 管理器 [II]").Dialog("创建用户--(local)").WinButton("确定").Click

想对WinList和WinListView进行点击checkbox录制，但是无法识别，自己改的，但是有问题
Set newobject=Description.Create
newobject("class").value="WinCheckBox"
newobject("nativeclass").value="Button"
Dim n,m,i
n=Window("BeyonDB DBA 管理器 [II]").Dialog("创建用户--(local)").WinList("访问未授权数据库:").GetItemsCount  '有3行记录aa,aaa,demodb
msgbox(n)
SET newobjects=Window("BeyonDB DBA 管理器 [II]").Dialog("创建用户--(local)").WinList("访问未授权数据库:").ChildObjects( newobject )
m=newobjects.Count   '此处返回0  newobjects集合有问题，是否这样写的，请指教
msgbox(m)
For i=0 to n-1
    newobjects( i ).SET "ON" '此处都没获得set的方法？手动输入的
Next

今天有雾

请尝试用描述性编程来进行识别checkbox

另外 newobject("nativeclass").value="Button"， 这句脚本好像写的不对吧 不应该是Button

pilibaby

碰到同样的问题，期待答案