vb.net - VB.NET 中组合框的文件夹名称

Question

我希望我的组合框通过检查目录中的所有目录名称来填写运行时。

这是我的代码：

    Private Sub EDITFORM_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call CLEAR()
    End Sub

Private Sub CLEAR()
        qtytb.Enabled = False
        parttb.Clear()
        qtytb.Clear()
        DTCB.Items.Clear()
        MTHCB.SelectedIndex = ""
        YRCB.SelectedIndex = ""
        RadioButton2.Checked = True
        RadioButton1.Checked = True
        TextBox1.Clear()
        TextBox2.Clear()
   >>     Dim di As New DirectoryInfo("D:\DATABASE\" & Pick_Item.deptlbl.Text)
       If di.Exists = True Then
            For Each subDirectory As DirectoryInfo In di.GetDirectories()
                YRCB.Items.Add(CInt(subDirectory.Name.ToString))
            Next
        End If<<

    End Sub

这是我对组合框和加载表单的完整代码但是当我调试时，它只是出现一个带有错误的消息框，所以我不知道代码中的错误到底在哪里

"Conversion from "" string to integer is not valid"

像这样的东西。那么，如何将文件夹名称添加到我的组合框中？正是我的目录名称使用整数（原因是按年份命名），如果我按名称添加目录（不是整数）它可以。任何帮助，将不胜感激

Answer 1

您的问题在 TOP 行

Dim folders() As String = IO.Directory.GetDirectories("D:\DATABASE\")
  For Each folder As String In folders
    Combobox1.Items.Add(folder)
  Next

更新

是否有任何其他代码存在于子例程/事件中但未包含在上面？我试过了，即使文件夹名称是数字，它也能正常工作

我认为问题出在这些方面

MTHCB.SelectedIndex = ""
YRCB.SelectedIndex = ""

将它们更改为

MTHCB.SelectedIndex = -1
YRCB.SelectedIndex = -1