请教老师一个比较拗口的代码怎么写，关于隐藏和混淆重要内容的 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教老师一个比较拗口的代码怎么写，关于隐藏和混淆重要内容的

共有3479人关注过本帖树形打印复制链接主题：请教老师一个比较拗口的代码怎么写，关于隐藏和混淆重要内容的

初心不改再说未来

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

等级：一尾狐帖子：497 积分：3934 威望：0 精华：0 注册：2017/7/19 10:58:00

请教老师一个比较拗口的代码怎么写，关于隐藏和混淆重要内容的 发帖心情

Post By：2018/9/18 23:33:00 [显示全部帖子]

某列中有4个自定义项目ABCD（新增数据一律默认为A）如何写代码控制当某条数据状态从A被调整为BCD后，再也无法调整回A了？

然后，当前登录用户如果累计有10条数据状态为B时，则暂时不可以再调整其他数据状态了，这个代码怎么写啊......

[此贴子已经被作者于2018/9/18 23:58:11编辑过]

初心不改再说未来

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

等级：一尾狐帖子：497 积分：3934 威望：0 精华：0 注册：2017/7/19 10:58:00

Post By：2018/9/19 10:28:00 [显示全部帖子]

If e.DataCol.name = "状态" AndAlso e.oldvalue <> Nothing Then

If ( e.oldvalue = "沟通中" OrElse e.oldvalue = "飞单" OrElse e.oldvalue = "已成交" ) AndAlso e.newvalue = "未认领" Then

msgbox("已认领成功!不可以退回未认领状态!")

e.cancel = True

End If

Dim Sum As Double

Sum = Tables("工单表").Compute("Sum(数量)", "状态 = '沟通中' or 状态 = '飞单' or 状态 = '已成交' ")

If sum > 3 Then

msgbox("旧工单未处理完成前不得处理新工单")

e.cancel = True

End If

这么写对不对啊？调试了一下好像没起作用······

主题：请教老师一个比较拗口的代码怎么写，关于隐藏和混淆重要内容的