How to set condition for my Choose From List

Question

hi ..plz check my code...i want to set a condition on my CFL which opens GL Accounts..it has to show only Active Accounts...but when i run the program iam able to see all accounts..what might me the proble..
my code is as follows
'''''''''' load form
private sub loadform()
'' here iam loading form which is designed in Screen painter where i have a textbox (uid = 19) and CFL_2 as its choosefromlist and object type = 1 alias name = ActCode
conditionCFL()
oform.visble = true
end sub
'''''''''' end of load form
'''''''''setting condition
private sub ConditionCFL()
Try
            Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
            Dim oCons As SAPbouiCOM.Conditions
            Dim oCon As SAPbouiCOM.Condition
            oCFLs = oForm.ChooseFromLists
            Dim oCFL As SAPbouiCOM.ChooseFromList
            Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
            oCFLCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
            ' Adding 2 CFL, one for the button and one for the edit text.
            oCFLCreationParams.MultiSelection = False
            oCFLCreationParams.ObjectType = "1"
            oCFLCreationParams.UniqueID = "CFL1"
            oCFL = oCFLs.Add(oCFLCreationParams)
            ' Adding Conditions to CFL1
            oCons = oCFL.GetConditions()
            oCon = oCons.Add()
            oCon.Alias = "Postable"
            oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
            oCon.CondVal = "Y"
            oCFL.SetConditions(oCons)
            oCFLCreationParams.UniqueID = "CFL2"
            oCFL = oCFLs.Add(oCFLCreationParams)
        Catch
            MsgBox(Err.Description)
        End Try
end sub
'''''''''end of setting condition
i have still more code...plz follow the next code which is posted below.....

Answer 1

continuation from above code...plz foloow complete code
'''''''''''item event
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        Dim EventEnum As SAPbouiCOM.BoEventTypes
        EventEnum = pVal.EventType
        Try
            Select Case pVal.EventType
                Case SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST
                    If pVal.BeforeAction = True Then
                      Dim oCFLEvent As SAPbouiCOM.IChooseFromListEvent = DirectCast(pVal, SAPbouiCOM.IChooseFromListEvent)
                        Dim oDataTable As SAPbouiCOM.DataTable = oCFLEvent.SelectedObjects
                        Dim val As String
                        Try
                            If pVal.ItemUID = "19" Then
                               Me.oDBDataSource.SetValue("U_BalenceSheet_Acct", 0, oCFLEvent.SelectedObjects.GetValue(0, 0))
                            End If
                         Catch ex As Exception
                            MsgBox(ex.ToString)
                        End Try
                    End If
                    Exit Select
            End Select
                       Catch ex As Exception
                            MsgBox(ex.ToString)
                        End Try
end sub
''''''''''end of item event
Edited by: Shenaz Sultana on Nov 13, 2009 2:18 PM