标题: 判断一个节点被删除后还是否存在,如何处理呢? [打印本页] 作者: zhengpeipei 时间: 2009-10-30 18:14 标题: 判断一个节点被删除后还是否存在,如何处理呢? Window("XXX").WinTreeView("SysTreeView32").Select DataTable("节点名称", dtGlobalSheet)
Window("XXX").WinToolbar("ToolbarWindow32_3").ShowDropdown 1
Window("XXX").WinMenu("ContextMenu").Select "删除"
Dialog("确定").WinButton("是(Y)").Click
接下来怎样判断这个被删除的节点是否存在呢?请各位高手指点一下,最好能给出脚本,谢谢啦!作者: zhengpeipei 时间: 2009-10-30 18:42 作者: hsjzfling 时间: 2009-10-30 18:53
删除后遍历Window("XXX").WinTreeView("SysTreeView32")中的所有元素,看看还有那个删掉的节点名称作者: zhengpeipei 时间: 2009-10-30 18:59 标题: 回复楼上的帖子 能否将脚本写出来呢,谢谢了。作者: zhengpeipei 时间: 2009-10-31 10:38
Dim j,node3,k
node3=datatable.Value("节点名称","Global")
For j=0 to Window("XXX").WinTreeView("SysTreeView32").GetItemsCount -1
If Window("XXX").WinTreeView("SysTreeView32").GetItem(j)=node3 Then
k=1
Reporter.ReportEvent micPass,"删除节点失败","删除节点失败!"
DataTable.GetSheet("Global").SetNextRow
else
k=0
End If
Next
If k=0 Then
Reporter.ReportEvent micPass,"删除节点成功","删除节点成功!"
End If
我使用上面的代码来实现的,但是感觉不是很简练,是否有其它更好的方法呢?作者: zero0223 时间: 2009-10-31 11:01
Dim j,node3,k
node3=datatable.Value("节点名称","Global")
For j=0 to Window("XXX").WinTreeView("SysTreeView32").GetItemsCount -1
If Window("XXX").WinTreeView("SysTreeView32").GetItem(j)=node3 Then