我按照API写了如下的代码,但是发现有两个问题:
1.由于是button触发这个函数,那么应该如何获得choices变量?
2.是不是要对所有字段建立查询?如蓝色部分所示
请指教
Sub AddTo_ChoiceList(keywords, choices)
’ fieldname As String
’ choices As Object
’ entityDef = Defect
Dim sessionObj
Dim queryObj
Dim filterObj
Dim resultSetObj
Set sessionObj = GetSession()
’ start building a query of the users
Set queryObj = sessionObj.BuildQuery("Defect")
' have the query return the desired field of the user object(s)
queryObj.BuildField ("Headline")
queryObj.BuildField ("Description")
queryObj.BuildField ("XXXX")
queryObj.BuildField ("YYYY")
' filter for keywords
Set filterObj = queryObj.BuildFilterOperator(AD_BOOL_OP_OR)
filterObj.BuildFilter "Healline", AD_COMP_OP_IN, "keywords"
filterObj.BuildFilter "Description", AD_COMP_OP_IN, "keywords"
filterObj.BuildFilter "XXXX", AD_COMP_OP_IN, "keywords"
filterObj.BuildFilter "YYYY", AD_COMP_OP_IN, "keywords"
Set resultSetObj = sessionObj.BuildResultSet(queryObj)
' run it
resultSetObj.Execute
' add each value in the returned column to the choicelist
Do While resultSetObj.MoveNext = AD_SUCCESS
choices.AddItem resultSetObj.GetColumnValue(1)
Loop