各位大神，求代码，如何在combo控件不显示重复的内容啊？

delark723 发布于 2015-12-29 16:19， 1922 次点击

Private Sub Cbowenshu_GotFocus()
    m_recordset.Open "select * from songdaleixing where wenshu = '调查报告'", m_dbConnection, adOpenKeyset, adLockOptimistic
   Cbowenshu.Clear
    If m_recordset.RecordCount = 0 Then
    MsgBox "没有记录，请核对清楚!", vbInformation, "错误"
    End If
    While Not m_recordset.EOF
     Cbowenshu.AddItem m_recordset.Fields("leixing")
    m_recordset.MoveNext
    Wend
   m_recordset.Close

End Sub

2 回复

yuk_yu2015-12-29 16:39

回复楼主 delark723

m_recordset.Open "select distinct leixing from songdaleixing where wenshu = '调查报告'", m_dbConnection, adOpenKeyset, adLockOptimistic

delark7232015-12-29 16:53

回复 2楼 yuk_yu

谢谢高手！有问题再请教！