系统错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

制作了按钮

按钮代码如下

Select User.Name
    Case "开发者"
        Tables("外购订单表").Current("审核") = Left(UserName,2)
        Tables("外购订单表").Current("审核日期") = Date.Today()
        Tables("外购订单表").Current.Save()
        For i As Integer = 0 To Tables("外购订单表.外购订单明细表").Rows.Count - 1
            Dim r As Row = Tables("外购订单表.外购订单明细表").Rows(i)
            r("审核")= Left(UserName,2)
        Next
        DataTables("外购订单明细表").Save()

    Case "张敏佳"
                    Tables("外购订单表").Current("审核") = Left(UserName,2)
            Tables("外购订单表").Current("审核日期") = Date.Today()
            Tables("外购订单表").Current.Save()
            For i As Integer = 0 To Tables("外购订单表.外购订单明细表").Rows.Count - 1
                Dim r As Row = Tables("外购订单表.外购订单明细表").Rows(i)
                r("审核")= Left(UserName,2)
            Next
            DataTables("外购订单明细表").Save()

             Case "沈萍萍","吕晓","钟英","吴芳君","贺杰"
        MessageBox.show("你无审核权限!")
End Select

每次一按按钮就出现这个提示框。

求解

主题：系统错误