TFS签出VB.NET项目后出现Switch类BC30109编译错误求助

异常原因 #

出现BC30109错误的核心是命名空间冲突：

• VB.NET内置的Switch函数属于Microsoft.VisualBasic.Interaction命名空间，是用于条件赋值的内置函数；
• 而System.Diagnostics.Switch是一个调试跟踪类。
  签出操作后，项目的自动导入命名空间配置可能被TFS上的默认配置覆盖（比如自动导入了System.Diagnostics），编译器优先识别System.Diagnostics.Switch类，而非VB内置的Switch函数，导致代码被误判为“用类作为表达式”。

你尝试手动导入System.Diagnostics后语句自动消失，是因为项目属性里已经配置了该命名空间的自动导入，IDE会自动移除重复的手动导入语句。

解决思路 #

1. 明确指定Switch的全限定命名空间 #

直接在代码里写明VB内置Switch的完整命名空间，强制编译器识别正确的对象：

DefaultSalUnit = Microsoft.VisualBasic.Interaction.Switch(CLng(rdr("VAR_VALUE")) = 12, "Monthly", CLng(rdr("VAR_VALUE")) = 1, "Yearly")

2. 调整项目的自动导入命名空间顺序 #

• 右键项目 → 选择属性 → 切换到引用标签页；
• 在“导入的命名空间”列表中，找到Microsoft.VisualBasic和System.Diagnostics；
• 将Microsoft.VisualBasic移到System.Diagnostics上方（编译器会优先匹配靠前的命名空间），或者直接取消勾选System.Diagnostics（如果项目中没有用到该命名空间的其他功能）。

3. 对比签出前后的项目文件差异 #

通过TFS对比签出前后的.vbproj文件，查看是否有以下变化：

• 新增了<Import Include="System.Diagnostics" />节点；
• 原有命名空间导入的顺序被修改。
  找到差异后，将配置改回签出前的状态即可。

4. 替换Switch为无冲突的写法 #

如果不想依赖Microsoft.VisualBasic命名空间，可以把Switch替换为更直观的Select Case，彻底避免命名冲突：

If Not IsDBNull(rdr("VAR_VALUE")) Then
    Dim varValue As Long = CLng(rdr("VAR_VALUE"))
    Select Case varValue
        Case 12
            DefaultSalUnit = "Monthly"
        Case 1
            DefaultSalUnit = "Yearly"
    End Select
End If

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