請問如何避免在列表框中輸入重複的值?

lzx-shmily · 发表于 2008-12-9 19:51:48

比如將文本框中的值A,添加到列表框中,在列表框中已經存在A的情況下,怎樣才能在再次添加時不添加A?謝謝~

Henry D. Sy · 发表于 2008-12-9 20:14:06

列表框的行来源类型是什么

lzx-shmily · 发表于 2008-12-9 20:25:21

列表框的行来源是值列表

Henry D. Sy · 发表于 2008-12-9 20:57:18

先判断后添加

lzx-shmily · 发表于 2008-12-9 21:00:04

如何判断呢?寫得詳細一點可以嗎?謝謝

Henry D. Sy · 发表于 2008-12-9 21:05:24

没有测试，你自己试试。

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:27

測試通過,謝謝!
我用以下代碼也可以
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:59

一样一样道理

changweiren · 发表于 2008-12-10 00:13:27

又学到知识了

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 請問如何避免在列表框中輸入重複的值?

群介绍
主题无相 (随机显示版	同地区群块其他地区)