📚 SAP Business One SDK Help

Folder Object
See Also  Members  Example

Description

Represents a folder in a form.

Object Model



Remarks

To hold data in a folder, the item must be bound to a data source (UserDataSource or DBDataSource) using the DataBind property.

Example

Adding folders and grouping them (Visual Basic)Copy Code
Public Sub UsingFolderItems()

    Dim oForm As SAPbouiCOM.Form
    Dim oItem As SAPbouiCOM.Item
    Dim oFolder As SAPbouiCOM.Folder

    Dim i As Integer '// to be used as a counter


    '// add a new form
    Set oForm = SBO_Application.Forms.Add("FormWithFolder")

    '// add a user data source
    oForm.DataSources.UserDataSources.Add "FolderDS", dt_SHORT_TEXT, 1

    '//***************************
    '// Adding Folder items
    '//***************************

    For i = 1 To 2

        Set oFolder = oForm.Items.Add("Folder" & i, it_FOLDER).Specific

        '// set the caption
        oFolder.Caption = "Folder" & i
        oFolder.DataBind.SetBound True, "", "FolderDS"

        If Not i = 1 Then
            oFolder.GroupWith ("Folder" & i - 1)
        End If
    Next i

End Sub

'-------------------------------

Public Sub UsingFolderItems()

    Dim oForm As SAPbouiCOM.Form
    Dim oItem As SAPbouiCOM.Item
    Dim oFolder As SAPbouiCOM.Folder

    Dim i As Integer '// to be used as a counter


    '// add a new form
    Set oForm = SBO_Application.Forms.Add("FormWithFolder")

    '// add a user data source
    oForm.DataSources.UserDataSources.Add "FolderDS", dt_SHORT_TEXT, 1

    '//***************************
    '// Adding Folder items
    '//***************************

    For i = 1 To 2

        Set oFolder = oForm.Items.Add("Folder" & i, it_FOLDER).Specific

        '// set the caption
        oFolder.Caption = "Folder" & i
        oFolder.DataBind.SetBound True, "", "FolderDS"

        If Not i = 1 Then
            oFolder.GroupWith ("Folder" & i - 1)
        End If
    Next i

End Sub

Example

See Also