Foxtable(狐表)用户栏目专家坐堂 → 系统错误


  共有5825人关注过本帖树形打印复制链接

主题:系统错误

美女呀,离线,留言给我吧!
hemaniuniu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:175 威望:0 精华:0 注册:2015/4/10 13:43:00
系统错误  发帖心情 Post By:2015/4/10 13:49:00 [只看该作者]

图片点击可在新窗口打开查看
 
制作了按钮 
按钮代码如下
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
 
每次一按按钮就出现这个提示框。
求解
 
 

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/10 13:51:00 [只看该作者]

你没有 Tables("外购订单表") 这个表

 回到顶部
帅哥哟,离线,有人找我吗?
huyv523
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:338 威望:0 精华:0 注册:2017/8/15 14:20:00
  发帖心情 Post By:2018/5/23 10:05:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/23 10:30:00 [只看该作者]

以下是引用huyv523在2018/5/23 10:05:00的发言:
图片点击可在新窗口打开查看

 

有问题,请发帖提问。


 回到顶部