vb与数据库连接 access 使得输入数据唯一

[dasa5678]

也就是在vb的combobox输入数据 我要输入的是姓名 比如输入过李三 再次输入李三就会跳出对话框 之类的 应该如何用呢

[xz1983546]

失去焦点时,把当前内容和以前内容比一遍.

[dasa5678]

哦 对哈 这个方法好 但是比对的语句。。。。？ 应该是什么 想不到呢

[xz1983546]

Private Sub Form_Load()
Combo1.AddItem "ok", 0
Combo1.AddItem "no", 1
Combo1.AddItem "yes", 2
End Sub


Private Sub Combo1_LostFocus()
If isExist(Combo1.Text) = True Then
MsgBox "有"
Else
MsgBox "没有"
End If
End Sub

Private Function isExist(str1 As String) As Boolean
Dim i As Integer
For i = 0 To Combo1.ListCount - 1
If str1 = Combo1.List(i) Then
isExist = True
Exit Function
End If
Next i
isExist = False
End Function

[ijwsoft]

我来晚了,楼上的很好

[dasa5678]

[Quote=引用 3 楼 xz1983546 的回复:]
Private Sub Form_Load()
Combo1.AddItem "ok", 0
Combo1.AddItem "no", 1
Combo1.AddItem "yes", 2
End Sub


Private Sub Combo1_LostFocus()
If isExist(Combo1.Text) = True Then
MsgBox "有"
Else
MsgBox "没有"
End If
End Sub

Private Function isExist(str1 As String) As Boolean
Dim i As Integer


For i = 0 To Combo1.ListCount - …
[/Quote]

现在的问题是 combobox原来也有数据 当我把combobox中数据选到combob0x.text的时候 就会出现重复了 我是选择也不是再次输入的数据 想达到即是选择又可以填写的combobox(无重复)

[success000]

帮顶

[dasa5678]

[Quote=引用 6 楼 success000 的回复:]
帮顶
[/Quote]

谢谢袄