Question

在用户表单中我有一个列表框和一个组合框，列表框将通过按钮从组合框接收值＆＃39;添加＆＃39;我需要编写一个控件来检查组合框中选择的值是否已存在于列表框中，如果不存在，则会发出蜂鸣声，否则将添加该值。这是一些经过测试的代码之一，对空值的控制运行良好，但无法添加线索或tst控件。

If etatgen.Value = vbNullString Then
    MsgBox ("Non authorized value")
    Exit Sub
Else
Dim i As Integer
    For i = 0 To (lstetatgen.ListCount - 1)
        If lstetatgen.List(i) = etatgen.Value Then
            Exit for
        Else
            lstetatgen.AddItem etatgen.Value
        End If
    Next
End If

感谢

Answer 1

我通过编辑代码找到了解决问题的方法，这是一个样本

 existant = 0
 non_existant = 0


If etatgen.Value = vbNullString Then
    MsgBox ("Valeur vide non autorisée")
    Exit Sub
Else
Dim i As Integer
    For i = 0 To (lstetatgen.ListCount - 1)
           If lstetatgen.List(i) = etatgen.Value Then
            MsgBox ("Existant")
            existant = 1
        Else
            non_existant = 1
        End If

    Next i


End If
If existant = 1 Then
Else
lstetatgen.AddItem etatgen.Value
End If
Exit Sub

VBA，添加比较值列表框组合框

1 个答案: