I am using the code below to change a column setting on a system form. There has no error when I run it, but the "For Loop" just not looping and then I found out "oColsPreferences.Count" is always = 0, does anyone help me out here?
Dim oCmpSrv As SAPbobsCOM.CompanyService
Dim oFormPreferencesService As SAPbobsCOM.FormPreferencesService
Dim oColsPreferences As SAPbobsCOM.ColumnsPreferences
Dim oColPreferencesParams As SAPbobsCOM.ColumnsPreferencesParams
Dim i As Integer
oCmpSrv = oCompany.GetCompanyService
oFormPreferencesService = oCmpSrv.GetBusinessService(SAPbobsCOM.ServiceTypes.FormPreferencesService)
oColPreferencesParams = oFormPreferencesService.GetDataInterface(SAPbobsCOM.FormPreferencesServiceDataInterfaces.fpsdiColumnsPreferencesParams)
oColPreferencesParams.FormID = "133"
oColPreferencesParams.User = 1
oColsPreferences = oFormPreferencesService.GetColumnsPreferences(oColPreferencesParams)
For i = 0 To oColsPreferences.Count - 1
If oColsPreferences.Item(i).ItemNumber = "5" Then 'for example "5"
oColsPreferences.Item(i).VisibleInForm = SAPbobsCOM.BoYesNoEnum.tYES
oColsPreferences.Item(i).EditableInForm = SAPbobsCOM.BoYesNoEnum.tYES
End If
Next
oFormPreferencesService.UpdateColumnsPreferences(oColPreferencesParams, oColsPreferences)