Office中国论坛/Access中国论坛

标题: case语句中再加条件怎么办？ [打印本页]

作者: feiye 时间: 2002-10-28 20:39
标题: case语句中再加条件怎么办？
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 时间: 2002-10-28 20:56
可以在中间加入: Case Else

[em26]

作者: szjhcdj 时间: 2002-10-29 01:28
是不是没有
end if

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)