标题: 請問如何避免在列表框中輸入重複的值? [打印本页] 作者: lzx-shmily 时间: 2008-12-9 19:51 标题: 請問如何避免在列表框中輸入重複的值? 比如將文本框中的值A,添加到列表框中,在列表框中已經存在A的情況下,怎樣才能在再次添加時不添加A?謝謝~作者: Henry D. Sy 时间: 2008-12-9 20:14
列表框的行来源类型是什么作者: lzx-shmily 时间: 2008-12-9 20:25
列表框的行来源是值列表作者: Henry D. Sy 时间: 2008-12-9 20:57
先判断后添加作者: lzx-shmily 时间: 2008-12-9 21:00
如何判断呢?寫得詳細一點可以嗎?謝謝作者: Henry D. Sy 时间: 2008-12-9 21:05
没有测试，你自己试试。
Sub AddItm(ctrlListBox As ListBox, ByVal strItem As String)
Dim I
For I = 0 To ctrlListBox.ListCount
If ctrlListBox.Column(0, I) = strItem Then
MsgBox strItem & " Exist Already"
Exit Sub
End If
Next
ctrlListBox.AddItem strItem
End Sub
复制代码
作者: lzx-shmily 时间: 2008-12-9 21:23
測試通過,謝謝!
我用以下代碼也可以
For I = 0 To List7.ListCount - 1
If List7.ItemData(I) = Me.Text11 Then
MsgBox "已重複"
Exit Sub
End If
Next
List7.AddItem Item:=Me.Text11作者: Henry D. Sy 时间: 2008-12-9 21:26
一样一样道理作者: changweiren 时间: 2008-12-10 00:13
又学到知识了