case语句中再加条件怎么办？

feiye

Do Until TableA.EOF = True
                Select Case TableA!部门                        
                 Case "宣风"
                        X1 = 3 + (18 * 12) + TableA!部门序号
                        X2 = 2 + (18 * 12)
                        K = "风霖"
                        N = TableA!部门序号
                        
                   Case "跑马坪"
                     X1 = 3 + (18 * 5) + TableA!部门序号
                     X2 = 2 + (18 * 5)
                     K = TableA!部门
                     N = TableA!部门序号
                     If (TableA!部门序号 > 13) Then
                        X1 = 3 + (18 * 6) + TableA!部门序号
                        X2 = 2 + (18 * 6)
                        K = TableA!部门
                        N = TableA!部门序号 - 13
                                         
                                      
                End Select


总出现End Select没有Select Case错误
主要错误出现在跑马坪这一段中，如果删去，则不会出错
请指教

zhuyiwen

可以在中间加入: Case Else

[em26]

szjhcdj

是不是没有
end if