Hi there,

I have a business object that retrives information using Businessobject.GetAllEntities. I want to make changes to the list retrived and update the database at the sametime. The following piece of code doesnt work for me.

  Private Function Save() As Boolean

        Me.oOSPBusinessRules.GetAllEntities()

        Me.oOSPBusinessRules.Entity.SettingName = "DisplayCCSiteTermsToCustomerUponCheckout"
        Me.oOSPBusinessRules.Entity.SettingValue = IIf(Me.DisplayCCSiteTermsToCustomerUponCheckoutCheckBox.Checked, 1, 0)


        Me.oOSPBusinessRules.Entity.SettingName = "DisplayeCheckSiteTermsToCustomerUponCheckout"
        Me.oOSPBusinessRules.Entity.SettingValue = IIf(Me.DisplayeCheckSiteTermsToCustomerUponCheckout.Checked, 1, 0)

        Me.oOSPBusinessRules.Entity.SettingName = "StudentProfileRules.ValidateStudentInformation"
        Me.oOSPBusinessRules.Entity.SettingValue = IIf(Me.DisplayStudentProfileRulesValidateStudentInformationCheckBox.Checked, 1, 0)

        Me.oOSPBusinessRules.Entity.SettingName = "DisplayeCheckSiteTermsToCustomerUponCheckout"
        Me.oOSPBusinessRules.Entity.SettingValue = IIf(Me.DisplayeCheckSiteTermsToCustomerUponCheckout.Checked, 1, 0)

        Me.oOSPBusinessRules.Entity.SettingName = "OSPProductBV.SendEmail"
        Me.oOSPBusinessRules.Entity.SettingValue = IIf(Me.DisplayStudentProfileRulesOSPProductBVSendEmailCheckBox.Checked, 1, 0)

        Dim Result As OakLeaf.MM.Main.Business.mmSaveDataResult = Me.oOSPBusinessRules.SaveEntityList()
        If Result = OakLeaf.MM.Main.Business.mmSaveDataResult.RulesBroken Then
            Dim BrokenRules As String = oOSPBusinessRules.Rules.GetAllBrokenRules()
            MessageBox1.ShowError(BrokenRules)
            Return False
        Else
            Return True
        End If

    End Function

Thanks
Yassin