How to add more than 1 condition to ChooseFromList???

Question

Anyone can help??? how to add multiple conditions to one ChooseFromList??? i have my code here, but it doesn't work, can anyone help???
Code:
Dim SplitStr() As String
Dim i As Integer
SplitStr = Split(Cond_Val, ",")
For i = 0 To UBound(SplitStr)
  oCons = oCFL.GetConditions()
  If Not oCons.Count > 0 Then                     
    oCon = oCons.Add()
  End If
  oCon.BracketOpenNum = UBound(SplitStr) + 1
  oCon.Alias = "Code"
  oCon.Operation = co_EQUAL
  oCon.CondVal = SplitStr(i)
  oCon.BracketCloseNum = i + 1
  If i <> UBound(SplitStr) Then
    oCon.Relationship = cr_AND
  End If
Next
oCFL.SetConditions(oCons)

Answer 1

Hi Lee,
Try to use SQL profiler to see what SQL query gets executed. Your code seems fine. Try it manually before working with the arrays. Here's an example of code I know works:
Dim oCfl As SAPbouiCOM.ChooseFromList
Dim oConditions As SAPbouiCOM.Conditions
Dim oCondition As SAPbouiCOM.ConditionoCfl = oForm.ChooseFromLists.Item("cfl_ePmt")
oConditions = oApplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_Conditions)
oCondition = oConditions.Add
oCondition.BracketOpenNum = 2
oCondition.Alias = "CardCode"
oCondition.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
oCondition.CondVal = sCode
oCondition.BracketCloseNum = 1
oCondition.Relationship = SAPbouiCOM.BoConditionRelationship.cr_AND
oCondition = oConditions.Add
oCondition.BracketOpenNum = 1
oCondition.Alias = "Canceled"
oCondition.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
oCondition.CondVal = "N"
oCondition.BracketCloseNum = 2
oCfl.SetConditions(oConditions)
Hope it helps,
Adele