今天突然要用VB写个小程序,遇到要在comboBox中删除重复的项,有段时间没写VB一下子还真忘了怎么个实现方法,计上心头如下的笨方法实现:
================VB版===============
While Not objRs.IsEOF
If Not IsNull(objRs.GetFieldValue(cmbField.Text)) Then
strValue = Trim(objRs.GetFieldValue(cmbField.Text))
If cmbFieldValue.ListCount > 0 Then '//过滤重复项
If IsExists(strValue, cmbFieldValue) = False Then
cmbFieldValue.AddItem strValue
End If
Else
cmbFieldVal
……

