ITPUB论坛 » Rational » 如何显示user.fullname
新一届的微软MVP评选已经开始,欢迎各位推荐!
2008-8-7 22:49 smartpig
如何显示user.fullname

如何显示user.fullname
在点击owner的时候,如何显示用户的fullname呢

2008-8-7 22:50 hanfeishu
reference和reference_list类型的加脚本都是不能显示fullname的,上面的帖子说的很清楚,以前也有不少人问过此类问题。
至于脚本的书写,涉及到API的使用,建议好好的去看看管理员手册和API参考,里面都有很多类似的代码,稍作修改就可以使用。

下面是IBM Developerworks上的一段示例脚本,结合上面几个回帖就可以搞定你的需求了:
ref:[url]http://www.ibm.com/developerworks/rational/library/3890.html[/url]
Populate a choicelist with full names of active users
DIM RegularSession
  DIM queryDef
  DIM ResultSet
  DIM Is_Active_Value
  DIM colValue

  set RegularSession = GetSession
  set queryDef = RegularSession.BuildQuery("users")
  Is_Active_Value = 1

  queryDef.BuildField("fullname")

  set queryFilterNode = queryDef.BuildFilterOperator(AD_BOOL_OP_AND)
  queryFilterNode.BuildFilter "is_active", AD_COMP_OP_EQ, Is_Active_Value

  set ResultSet = RegularSession.BuildResultSet(queryDef)
  ResultSet.Execute
  status = ResultSet.MoveNext

  while status = AD_SUCCESS
    RegularSession.OutputDebugString ResultSet.GetNumberofColumns & vbCrLf
    For n = 1 to ResultSet.GetNumberofColumns
          colValue = ResultSet.GetColumnValue (n)
          choices.AddItem(colValue)
          RegularSession.OutputDebugString colValue & vbCrLf
    Next
    status = ResultSet.MoveNext
  wend

页: [1]
查看完整版本: 如何显示user.fullname


Powered by ITPUB论坛