我改成在owner的选项列表下加代码,倒是可以取到相应的loginname了。只是owner字段要显示在表单上,我把它去掉,就又取不到了。
代码如下:
Dim fullname
Dim session
Dim status
fullname = GetFieldValue("fullname").GetValue()
set session = GetSession
set querydef = session.BuildQuery("users")
querydef.BuildField("login_name")
set operator = querydef.BuildFilterOperator(AD_BOOL_OP_AND)
operator.BuildFilter("fullname"), AD_COMP_OP_EQ ,fullname
set resultset = session.BuildResultSet(querydef)
resultset.Execute
status = resultset.MoveNext
Do while status = AD_SUCCESS
choices.AddItem(resultset.GetColumnValue(1))
AddFieldValue "owner", resultset.GetColumnValue(1)
status = resultset.MoveNext
Loop