Select 组合框中的项目包含 vb6 中的特定单词

Question

我的问题是我的 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?或者我该如何解决，有什么想法吗？

感谢您的自述文件，对不起我的英语！

Answer 1

试试这个 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

Answer 2

两个建议，如果它们对你的情况重要的话

如果您的列表中可能有 "document 1"，而不是 "Document 1"，您应该使用 vbTextCompare 来忽略大小写。
如果您只想要以 "Document" 开头的项目，您可以检查 InStr() = 1。对于 "This Document"，使用 InStr() > 0 是正确的，这可能是您不想要的。

If InStr(Description, "Document", vbTextCompare) = 1 然后

Select 组合框中的项目包含 vb6 中的特定单词

Select items from a combobox containing a specific word in vb6

vb6

combobox