我有一个下拉列表框里面显示了用户的fullname
当选择不同的userfullname的时候
另外有一个字段"用户的phone" 根据所选择的fullname来改变
这个field变更时候的脚本如何来写，麻烦看看有没有解答。
谢谢

问题已经解决 [打开主题]

本主题的最佳答案为 [ 2 楼].

大概一个脚本,那一个现有的脚本改的，放在VALUE  CHANAGE的脚本里面
DIM RegularSession
  DIM queryDef
  DIM ResultSet
  DIM colValue
  DIM CurUser
  DIM CurUserPhone

  CurUser = GetFieldValue(fieldname).GetValue()
  set RegularSession = GetSession
  set queryDef = RegularSession.BuildQuery("users")

  queryDef.BuildField("phone")

  set queryFilterNode = queryDef.BuildFilterOperator(AD_BOOL_OP_AND)
  queryFilterNode.BuildFilter "login_name", AD_COMP_OP_EQ, CurUser

  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)
                  CurUserPhone = colValue
    Next
    status = ResultSet.MoveNext
  wend

  SetFieldValue "用户的PHONE", CurUserPhone

最佳答案

该回答被楼主/管理员列为正解!

引用:

原帖由 softfly 于 2008-11-5 18:36 发表
大概一个脚本,那一个现有的脚本改的，放在VALUE  CHANAGE的脚本里面
DIM RegularSession
  DIM queryDef
  DIM ResultSet
  DIM colValue
  DIM CurUser
  DIM CurUserPhone

  CurUser = GetFieldValue(fie ...

不行
好像这句话有问题 queryFilterNode.BuildFilter "login_name", AD_COMP_OP_EQ, CurUser
这样好像取的是login_name，并且我改成了full_name也不行

[ 本帖最后由 even_liu_liu 于 2008-11-5 18:51 编辑 ]

你改一改
我login_name是我从session里面取得的当前登录的用户

你按照自己的需求来修改
核心就是build 一个QUERY来查询你对应用户的PHONE

引用:

原帖由 softfly 于 2008-11-5 18:48 发表
你改一改
我login_name是我从session里面取得的当前登录的用户

你按照自己的需求来修改
核心就是build 一个QUERY来查询你对应用户的PHONE

嗯 但是这里有个难点 就是一开始用的是 Getsession这个方法 就限定了只能跟当前用户有关
这里不太会改

终于搞定了 在版主的基础上面改了改