如何遍历一个dw中所有的dwo!!!!

[shizi_mhy]

如何遍历一个dw中所有的dwo
例如设置dw_1中所有的dwo的visibled = 0

[llitcwl]

list = dwParm.Describe("datawindow.objects")

EndPos = pos(list, '~t', StartPos)
//分析列表对象得到制表符间的列表名
Do while ( EndPos > 0 )
token[i] = Mid(list, StartPos, EndPos - StartPos)
i ++
StartPos = EndPos + 1
EndPos = pos(list, '~t', StartPos)
LOOP
token[i] = Mid(list, StartPos)

[llitcwl]

得到对象名后就可以通过DESCRIBE进行下一步任何操作了。