主题：[求助]请教一个Select Case的问题？

你这个情况，变量都不同，就用IF语句吧，用Select反而臃肿

在表事件中，如DataColchanged中：

If e.NewValue IsNot Nothing Then
    Dim nm As String = e.DataCol.Name
    Select nm
        Case "列1"
            代码1
        Case "列2"
            代码2
        Case "列3"
            代码3
            .
            .
            .
        Case Else
            代码X
    End Select
End If

这样也可

前面加上：

If Forms("窗口1").opened Then

最后加上：

end if

可测试下