Question

我想检查下拉列表中的值。该列表已预先配置为保留是或否。

目前，我正在使用一个复选框，如下所示：

If chkboxOne.Value = vbChecked And (LenB(txtDetailsRefNo.Text) = 0) Then
    If vblnShowErrors Then Err.Raise 10000, VALIDATION, "A Default Reference Number must be entered."
    blnDataFail = True
  End If

我可以通过交换表单上组合框的复选框，并将“vbChecked”替换为True来简单地将chkboxOne更改为“cboboxOne”吗？我不确定它们的功能在语法方面有多么相似。

由于

Answer 1

要在组合框中获取项目，您可以检查listindex以查看所选内容（没有value属性）

cboboxOne.AddItem "yes"    '//listindex is 0
cboboxOne.AddItem "no"     '//listindex is 1
cboboxOne.AddItem "maybe"  '//listindex is 2

...
if (cboboxOne.ListIndex = 0) Then '// yes selected

您还可以检查所选文本：

if (cboboxOne.List(cboboxOne.ListIndex) = "yes") Then '// yes selected

您还可以使用ItemData

对自定义整数进行测试

cboboxOne.AddItem "yes"
cboboxOne.ItemData(cboboxOne.NewIndex) = 42
cboboxOne.AddItem "no" 
cboboxOne.ItemData(cboboxOne.NewIndex) = &HBEEF

...
if (cboboxOne.ItemData(cboboxOne.ListIndex) = 42) Then '// yes selected

检查下拉列表中的值

1 个答案: