Set glht= Browser("管理后台").Page("管理后台")

Set Mydescription = description.Create()
Mydescription("html tag").Value = "INPUT"
Mydescription("type").Value = "checkbox"
Set Checkboxes = glht.ChildObjects(Mydescription)
NoOfChildObjs = Checkboxes.Count
For Counter=0 to NoOfChildObjs-1
    Checkboxes(Counter).Set "ON"
Next

QTP全选页面的复选框