DataType = strTypeSet tObject = NothingEnd IfstrKeys = strKeys&strKey&","intCount = intCount + 1Else.NextNode = 0End IfSet tObjectPre = NothingSet tObject = NothingstrKeys = Replace(strKeys,","&strKey&",",",")intCount = intCount - 1Exit DoEnd IfLoop.Public Function Keys()Dim tArr,tStrtStr = Right(strKeys,Len(strKeys)-1) ‘ Trim the right comma|先去除strKeys左边的逗号，再去除strKeys最右侧的逗号来方便分解为一个数组tStr = Left(tStr,Len(tStr)-1)tArr = Split(tStr,",&