从数据库中读出的数据（年），能否让同一年只出现一次， ，这是从我的数据库中读出的内容，我的代码如下，请问要怎么样修改:

sql = "select distinct ETime from NewEquOut"   '初始化年，月
    Set rs = TransactSQL(sql)
    If Not rs.EOF Then
       rs.MoveFirst
       While Not rs.EOF
          If Not IsNull(rs.Fields(0)) Then
               Left(rs(0), 4)
               Left(rs(0), 4)
          End If
          rs.MoveNext
        Wend
        rs.Close
     End If
        For i = 1 To 12
         i
         i
        Next i

distinct不能过滤掉相同的吗？

sql = "select ETime from NewEquOut  GROUP BY ETime ;"   '初始化年，月
试试

---------------------
  group by和distinct效果一样 是这样吗
这2个用了效果都一样 把重复的去掉
-------------------------

如果不行的话,你检查你
Combo3 添加之前,清了下拉列表吗?

      


sql = "select distinct ETime from NewEquOut"   '初始化年，月
    Set rs = TransactSQL(sql)
    If Not rs.EOF Then
       rs.MoveFirst
       While Not rs.EOF
                             放在这里解决了，
            

          If Not IsNull(rs.Fields(0)) Then
               Left(rs(0), 4)
               Left(rs(0), 4)
          End If
          rs.MoveNext
        Wend
        rs.Close
     End If
        For i = 1 To 12
         i
         i
        Next i




谢谢班主

       While Not rs.EOF                    '循环开始
                            '清原数据,  放在这里解决了，
            


应该是放在循环外面的啊.

放在循环里面的话,是每次都清,结果只有最后一个.

确实，我也想到了，
  放在  While Not rs.EOF 前面还是跟以前一样，全部加载了,请问具体放在那个地方.谢谢

应该放在这：      
       rs.MoveFirst
       combo3.clear
       combo5.clear
       While Not rs.EOF

还是一样

有可能是你程序里的其它事件被触发所致。
也或者是Not IsNull(rs.Fields(0))的条件不满足所致。比如IsNull(a)与a=“”是不一样的

班主，帮帮忙