主题：[求助]combobox的下拉高度用代码设置

If e.Sender.text.Length=1 Then

    Dim drList As List(of DataRow) = DataTables("基础类别").Select("索引 = '" & e.Sender.text & "' And 级别 = 1 And 类别归属 = '地方车牌'")

    If drList.count>0 Then

        e.Sender.Items.Clear

        e.Sender.text=drList(0)("类别名称")

        e.Sender.SelectionStart=1

        For Each dr As DataRow In drList 

          e.Sender.Items.Add(dr("类别名称"))

          e.Sender.OpenDropDown

        Next

    End If

End If