主题：窗口下拉列表值唯一时自动显示？

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim str As String = e.Form.Controls("ComboBox1").Text
cmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = '" & str & "'")
If cmb.Items.Count = 1 Then
    cmb.Text = cmb.ComboList
End If