主题：请教：怎样用SELECT CASE 语句写这段代码

If e.IsFocusCell Then

    Select e.Col.Name

        Case "产品名称"

            If e.Row.IsNull("订单号") = True Then

                e.Cancel = True

            End If

        Case "订购件数"

            If e.Row.IsNull("产品名称") = True Then

                e.Cancel = True

            End If

        Case "到货日期"

            If e.Row.IsNull("订购件数") = True Then

                e.Cancel = True

            End If

    End Select

End If