通过列表索引链接组合框和文本框

Question

我有一个组合框和一个文本框。组合框按字母顺序排列为列表，有五个项目。 “苹果”“熊”“猫”“狗”“麋鹿”。在数据库中，它们以权重列出

APPLE 重 2，BEAR 重 100，CAT 重 7，DOG 重 20，ELK 重 30，

我想更改组合框以根据我在 Lost_Focus 上输入的重量选择正确的动物。所以我有

 For i = 0 To 4
    If txtField.Text = Me.cmbAnimal.ItemData(i) Then
        Me.cmbAnimal.ListIndex = i
    End If

    Next i  

但是，这是将重量与动物名称进行比较。我该如何改写这个？

Answer 1

在示例中，您有 2 个不同的组合框：cmbAnimal 和 cmbSeqCarrier。你用的是哪一个？

您对使用 ItemData 有正确的想法（假设它存储了动物的重量）。在下面的示例中，ItemData 属性包含权重。如果Text1 是您输入重量的框，那么下面的示例应该可以完成您要求的任务。

'Load weights with the names to a combobox
Private Sub Form_Load()
    cmbAnimal.AddItem "APPLE"
    cmbAnimal.ItemData(cmbAnimal.NewIndex) = 2
    cmbAnimal.AddItem "BEAR "
    cmbAnimal.ItemData(cmbAnimal.NewIndex) = 100
    cmbAnimal.AddItem "CAT"
    cmbAnimal.ItemData(cmbAnimal.NewIndex) = 7
    cmbAnimal.AddItem "DOG"
    cmbAnimal.ItemData(cmbAnimal.NewIndex) = 20
    cmbAnimal.AddItem "ELK"
    cmbAnimal.ItemData(cmbAnimal.NewIndex) = 30
End Sub

如果您将权重加载到 ItemData，那么这将正常工作：

Private Sub Text1_LostFocus()
    Dim i As Integer
    For i = 0 To cmbAnimal.ListCount - 1
        ' compare weight entered into text box with weights stored in the combobox
        If Trim(cmbAnimal.ItemData(i)) = Trim(Text1.Text) Then
            cmbAnimal.ListIndex = (i)
            Exit For
        End If
    Next i
End Sub