获取OR中的对象逻辑名

Function GetTestObjectName(obj)

 GetTestObjectName = ""

 If IsNull(Obj) or IsEmpty(obj) Then Exit Function

 Dim strObjectName

 strObjectName = obj.ToString

 strObjectName = Split(strObjectName, "")(1) & "(""" & Split(strObjectName, "")(0) & """)"

 GetTestObjectName = GetTestObjectName(Obj.GetTOproperty("parent")) & "." & strObjectName

End Function

 

posted @ 2012-09-06 09:01  dushuai  阅读(82)  评论(0)  编辑  收藏  举报