VB.NET ComboBox公共重载子菜单参数过多报错排查

该错误是ComboBox构造函数传参与系统定义的重载签名不匹配导致的：

• WinForm 原生ComboBox组件只提供无参构造方法New ComboBox()，不存在接收「整型ID、文本内容」两个入参的构造重载
• 实例化ComboBox时传入2个参数后，编译器找不到匹配的构造函数，就会抛出参数过多的重载匹配错误

把构造时传参的逻辑改成先创建无参实例，再配置下拉项属性即可，修正后的完整代码：

Public Function combo(strQuery As String) As List(Of ComboBox)
    Dim objlist As New List(Of ComboBox)
    Dim dt As New DataTable
    dt = ExecuteReader(strQuery)
    ' 显式声明dr为DataRow类型，避免隐式转换问题
    For Each dr As DataRow In dt.Rows
        ' 调用无参构造创建ComboBox实例
        Dim singleCbo As New ComboBox()
        ' 添加下拉项，分别绑定值和显示文本
        singleCbo.Items.Add(New With {
            .Value = Convert.ToInt32(dr.Item(0).ToString()),
            .Text = dr.Item(1).ToString()
        })
        singleCbo.DisplayMember = "Text"
        singleCbo.ValueMember = "Value"
        objlist.Add(singleCbo)
    Next
    Return objlist
End Function

<Extension>
Public Function ExecuteReader(strQuery As String) As DataTable
    Dim dt As New DataTable
    ' 执行前统一判断连接状态，避免重复开关连接报错
    If con.State = ConnectionState.Open Then con.Close()
    con.Open()
    cmd = New SqlCommand(strQuery, con)
    da = New SqlDataAdapter(cmd)
    da.Fill(dt)
    con.Close()
    Return dt
End Function

• 如果需要给ComboBox绑定整张查询表的数据，不需要逐行循环添加项，直接给DataSource属性赋值DataTable，再统一设置DisplayMember、ValueMember即可，执行效率更高
• 数据库连接、命令、适配器对象建议使用Using块做资源释放，避免连接泄漏
• VB.NET开发建议开启Option Strict On，可以在编译阶段提前发现类型不匹配、重载不匹配的问题，减少运行时报错

内容的提问来源于stack exchange，提问作者moviez wood