Combobox 从包含vb6中特定单词的组合框中选择项目

我的问题是，我的VB6应用程序中有以下组合框：

For Each sectionNodeTCbte In sectionsTCbte
            idTC = sectionNodeTCbte.selectSingleNode("Id").Text
            cmbTipoCbte.AddItem (sectionNodeTCbte.selectSingleNode("Desc").Text)
            cmbTipoCbte.ItemData(cmbTipoCbte.NewIndex) = idTC
Next

这个组合框带给我：

• 文件1
• 文件2
• 样式表1
• 样式表2
• 文件3

我只需要显示那些带有“Document”字样的文档。我应该使用if？或者我该怎么解决，有什么想法吗

---

谢谢你的自述，对不起我的英语

如果使用附加变量，请尝试此

：

Dim description As String

For Each sectionNodeTCbte In sectionsTCbte
    description = sectionNodeTCbte.selectSingleNode("Desc").Text
    If InStr(description, "Document") > 0 Then
        idTC = sectionNodeTCbte.selectSingleNode("Id").Text
        cmbTipoCbte.AddItem description
        cmbTipoCbte.ItemData(cmbTipoCbte.NewIndex) = idTC
    End If
Next

如果

使用其他变量，请尝试此

：

Dim description As String

For Each sectionNodeTCbte In sectionsTCbte
    description = sectionNodeTCbte.selectSingleNode("Desc").Text
    If InStr(description, "Document") > 0 Then
        idTC = sectionNodeTCbte.selectSingleNode("Id").Text
        cmbTipoCbte.AddItem description
        cmbTipoCbte.ItemData(cmbTipoCbte.NewIndex) = idTC
    End If
Next

两个建议，如果对你来说很重要的话

如果列表中可能有“document 1”而不是“document 1”，则应使用vbTextCompare忽略该情况
如果您只需要以“Document”开头的项目，可以检查InStr（）=1。对于“此文档”，使用InStr（）>0是正确的，您可能不希望这样
如果InStr（Description，“Document”，vbTextCompare）=1，那么两个建议（如果它们在您的案例中很重要的话）

如果列表中可能有“document 1”而不是“document 1”，则应使用vbTextCompare忽略该情况
如果您只需要以“Document”开头的项目，可以检查InStr（）=1。对于“此文档”，使用InStr（）>0是正确的，您可能不希望这样
如果InStr（Description，“Document”，vbTextCompare）=1，那么
谢谢@trincot！！！我能解决它！但是我没有使用InStr（idTC，Document），而是创建了一个带有项目描述的变量，然后用它代替idTC。非常感谢！！；-）啊，对了，我更新了答案。不客气。谢谢@trincot！！！我能解决它！但是我没有使用InStr（idTC，Document），而是创建了一个带有项目描述的变量，然后用它代替idTC。非常感谢！！；-）啊，对了，我更新了答案。不客气。