VB combobox数据重复问题
向combobox中添加字符串,如果发现已经存在就不再添加了,不知道怎么做循环,请教
补充下
if i = 0 then
VB code:
Option Explicit
Private Sub Command1_Click()
Dim i As Long
Dim S As String
S = "12345" '需要增加的项
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) <> S Then
'继续循环
Else
Exit Sub '不添加
End If
Next
Combo1.AddItem S '添加项S
End Sub
相关问答:
用VB怎么只针对windows自带的文件的右键添加菜单 如(.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
在vb中怎么判断,插入到数据库中的值是重复的,本人才刚接触VB语言,甚是有好多地方还不懂,还请各位大侠们给出代码,谢谢了呀!!!
插入之前select一下阿。
或者写一个组合SQL插入语句,例如
IF not Exist(
& ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害,回答基本都是爆料级的
大胡子升级真快啊,这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......