一个Collection对象和For Each..Next 的问题

Question

试试改为
For Each l_Col In Cols
  if not(l_col is nothing) then
    If l_Col.Name="DD" Then 
      Set Curcol=l_Col
    End If
  endif 
Next l_Col

Answer 1

newyon()的回答是有道理的,假如你用了l_Col.Caption的话,如果这个对象没有Caption属性就会出错的,但Name是每个控件都有的,除非它是Nothing,所以加个判断应该就可以了.另外除了For Each循环外,没有别的好办法了,正因为没有别的好办法,所以才会出现专门处理集合的For Each循环格式.