Form Load Problem

Question

Hi Experts
I have create a form using Screen Painter.  I am accessing this form by code. but at the load time it is show error "Invalid Query Tree [300-33] SQL Error is 8180"
My code for accessing form is given below
Public Overridable Sub OnAfterMenuClick(ByVal pVal As MenuEvent)
            Dim XMLDOCMENT As Xml.XmlDocument
            Dim item As Item
            Dim cmbWhse As ComboBox
            Dim form As Form
            Dim oMatrix As Matrix
            Dim oRecordset As Recordset
            Dim strSql As String
            Dim btnUpdate As Button
            Try
                form = B1Connections.theAppl.Forms.Item("frmZones")
                form.Select()
            Catch ex As Exception
                XMLDOCMENT = New Xml.XmlDocument
                XMLDOCMENT.Load("Zone.srf")
                B1Connections.theAppl.LoadBatchActions(XMLDOCMENT.InnerXml)
                strSql = "select WhsCode, whsname from owhs"
                oRecordset = B1Connections.diCompany.GetBusinessObject(BoObjectTypes.BoRecordset)
                oRecordset.DoQuery(strSql)
                form = B1Connections.theAppl.Forms.ActiveForm
                item = form.Items.Item("M001")
                oMatrix = item.Specific
                item = form.Items.Item("3")
                cmbWhse = item.Specific
                'cmbWhse.DataBind.SetBound("true", "", "Whse")
                While oRecordset.EoF = False
                    cmbWhse.ValidValues.Add(oRecordset.Fields.Item(0).Value, oRecordset.Fields.Item(1).Value)
                    oRecordset.MoveNext()
                End While
                'oForm = B1Connections.theAppl.Forms.Item("frmShelfMaster")
                item = form.Items.Item("B002")
                item.Enabled = False
                btnUpdate = item.Specific
                item = form.Items.Item("B003")
                item.Enabled = False
                item = form.Items.Item("8")
                item.Enabled = False
            End Try
        End Sub
It gives the error on " B1Connections.theAppl.LoadBatchActions(XMLDOCMENT.InnerXml)" Code . Please guide me
Thanks

Answer 1

Hi,
Maybe there is a duplicate in UniqueID of the form so you have that problem. Please check the uniqueID.
You try using FormCreationParams object.
I am using FormCreationParams and i dont have any problem in loading the form..
here is a code(but im using c#)
                    oXML = new System.Xml.XmlDocument();
                    oXML.Load("load.srf");
                    innerxml = oXML.InnerXml;
                    creationPackage.XmlData = innerxml;
                    creationPackage.UniqueID = <FormUID>;
                    oForm = UI.SBO_Application.Forms.AddEx(creationPackage);
                    oForm.Visible = true;