明白了,你是把查询出来的全体记录数做为一个数组,然后根据数组的长度循环,对吧?
13只是一个例子,呵呵

For IntI = 0 To Ubound(upLevelNoteArr)
If upLevelNoteArr(IntI)<>"" And Not IsNull(upLevelNoteArr(IntI)) Then
curLevelNoteLeft = CStr(upLevelNoteArr(IntI))&"1"
curLevelNoteRight = CStr(upLevelNoteArr(IntI))&"2"
curLevelNote = curLevelNote & curLevelNoteLeft &"|"& curLevelNoteRight &"|"
End If
Next


和我的方法一个道理,但是你的更简单,这个我收下.谢谢
说到做到,2W积分给你也是你应该的
你就别小气了,消消气啊

去水区开个帖子吧......