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

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

思路：

1、datacolchanging事件

 

If e.datacol.name = "第一列" andalso e.oldvalue <> Nothing Then

    If ( e.oldvalue = "B"  orelse e.oldvalue = "C" orelse e.oldvalue = "D" ) AndAlso e.newvalue = "A" Then

        msgbox(123)

        e.cancel = true

    End If

End If

 

2、datacolchanging事件，compute统计一下为B的个数 http://www.foxtable.com/webhelp/scr/0548.htm

 

1、代码

 

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
    ElseIf e.newvalue = "沟通中"  OrElse e.newvalue = "飞单" OrElse e.newvalue = "已成交" Then
        Dim Sum = e.DataTable.Compute("count(状态)", "状态 = '沟通中' or 状态 = '飞单' or 状态 = '已成交' ")
        If sum > 3 Then
            msgbox("旧工单未处理完成前不得处理新工单")
            e.cancel = True
        End If
    End If
End If

 

2、如果有问题，具体项目发上来测试