当发现任务有资源确定人时，让登入的[user name] 等于 [资源确定人 name] 才能执行[解决]这个操作,如果没有这个资料确定人就是按权限来设定解决这个操作,这个脚本如何写？

[ 本帖最后由 忆过云飞 于 2008-3-19 11:46 编辑 ]

DIM session
    DIM username
   
    set session = GetSession
    username = session.GetUserLoginName
    SetFieldValue fieldname, username
s= GetFieldValue("资源确定人 name").GetValue()

        if username=s then
                Defect_AccessControl = TRUE
                exit function
        end if

听雨的这段脚本要加在解决的ａｃｃｅｓｓ　ｃｏｎｔｒｏｌ中

  DIM session
    DIM username
   
    set session = GetSession
    username = session.GetUserLoginName
    ' SetFieldValue fieldname, username
    ' 该段断码可以注掉
     s= GetFieldValue("资源确定人 name").GetValue()

        if username=s then
                Defect_AccessControl = TRUE
                exit function
        end if
这段代码的只是去判断当前登录的用户和资源确定人是否一致
如果可以执行解决
另外你所说的没有确定资料人的时候
按什么权限来设定 需要你自己来确定 这个需要另外添加

Sub fldcolumn_9_DefaultValue(fieldname)
  ' fieldname As String
  ' record type name is 任务
  ' field name is 资源确认人-ResourceCoufirmer
    DIM session
    DIM username
   
    set session = GetSession
    username = session.GetUserLoginName
    s= GetFieldValue("资源确认人-ResourceCoufirmer").GetValue()

    if username=s then
        Defect_AccessControl = TRUE
        exit function
        end if

是这样的吗

对这样就可以 如果设定当前登录的用户和资源确定人一致 有权限使用解决的action