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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 状态不变更

共有1748人关注过本帖树形打印复制链接主题：状态不变更

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/3 15:09:00 [只看该作者]

你看到的表和你修改的表不同。

你是不是写错了表名？修改错了表格？

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/4 18:07:00 [只看该作者]

Dim r As Row =Tables("工作记录评价表").Current

改成

Dim r As Row =Tables("工作评价待处理_工作评价表").Current

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/4 18:22:00 [只看该作者]

1、弹出什么？

Dim r As Row =Tables("工作评价待处理_工作评价表").Current

msgbox(_UserName)

msgbox(_UserName = r("相关人员"))

If _UserName = r("相关人员") Then
    r("评价状态") = "已评价"
    r.Save()
Else
    MessageBox.show("你无审核权限!")
End If

msgbox(r("评价状态"))

2、修改后，去你access数据库那里看看值是否被修改了

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107014 积分：544301 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/5/4 20:20:00 [只看该作者]

sqltable是直接保存到数据库的，不会刷新项目里的主表，需要重新加载一下

主题：状态不变更