Excel/VB类型不匹配运行时错误2147352571求助

我来帮你排查这个问题——运行时错误2147352571本质是数据类型不兼容：组合框的AddItem方法无法直接处理某些数据库返回的值类型，比如Null、非字符串/数值类型。下面是具体的排查思路和解决方案：

可能的原因及对应解决办法 #

• 字段值为Null：数据库中的mfg_site字段可能存在空值，而AddItem不接受Null作为输入。可以用Nz函数把Null转换为空字符串：

  Site.AddItem Nz(rstSite.Fields("mfg_site").Value, "")
  

• 字段数据类型不兼容：如果mfg_site是日期、二进制或其他非文本/数值类型，需要显式转换为字符串。比如用CStr()强制转换：

  Site.AddItem CStr(rstSite.Fields("mfg_site").Value)
  

• 字段名称拼写错误：虽然概率不高，但要确认"mfg_site"是数据库表中准确的字段名（部分数据库区分大小写）。

调试技巧（定位具体问题） #

如果不确定是哪条数据导致的错误，可以在报错行前添加调试代码，查看字段的实际值和类型：

While Not rstSite.EOF
    ' 打印信息到VBA立即窗口（按Ctrl+G打开）
    Debug.Print "当前字段值: " & rstSite.Fields("mfg_site").Value
    Debug.Print "当前字段类型: " & rstSite.Fields("mfg_site").Type
    ' 尝试添加项
    Site.AddItem rstSite.Fields("mfg_site")
    rstSite.MoveNext
Wend

通过立即窗口的输出，你能直接看到哪条数据的类型或值有问题。

修改后的完整代码示例 #

这里是整合了Null处理和类型转换的完整代码：

Private Sub Site_Enter()
    Dim stSQL As String
    Dim rstSite As ADODB.Recordset
    
    ' 清空组合框现有选项
    Site.Clear
    DoEvents
    
    ' 构建SQL查询语句
    stSQL = "select distinct mfg_site from suserflds join sample on sample.sampno=suserflds.sampno" & _
            " where cast(coldate as date) between '" & DateValue(DateFrom) & "' and '" & DateValue(DateTo) & "'" & _
            " order by mfg_site "
    
    Set rstSite = con.Execute(stSQL)
    
    While Not rstSite.EOF
        ' 先转换为字符串，再处理Null值
        Site.AddItem Nz(CStr(rstSite.Fields("mfg_site").Value), "")
        rstSite.MoveNext
    Wend
    
    Set rstSite = Nothing
End Sub

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