hi, the following code i worte is to load a form and fill data from db table ..but i'm getting only one record and the buttons on standard toolbar like next, previous, first and last are not enabled and not working...what should i do? plz give me the code....
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SboGuiApi As SAPbouiCOM.SboGuiApi
Dim sConnectionString As String
Dim SBO_Application As SAPbouiCOM.Application
Dim oDICompany As SAPbobsCOM.Company
Dim ret As Long
SboGuiApi = New SAPbouiCOM.SboGuiApi
sConnectionString = Environment.GetCommandLineArgs.GetValue(1)
sConnectionString = Command()
SboGuiApi.Connect(sConnectionString)
SBO_Application = SboGuiApi.GetApplication
oDICompany = New SAPbobsCOM.Company
Dim sCookie As String
sCookie = oDICompany.GetContextCookie()
Dim conStr As String
conStr = SBO_Application.Company.GetConnectionContext(sCookie)
ret = oDICompany.SetSboLoginContext(conStr)
If Not ret = 0 Then
Exit Sub 'the operation has failed.
End If
ret = oDICompany.Connect()
If ret <> 0 Then
SBO_Application.MessageBox("Failed")
Else
SBO_Application.MessageBox("Connected to Database")
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' loading(Form)
Dim oForm As SAPbouiCOM.Form
Dim creationPackage As SAPbouiCOM.FormCreationParams
Dim oxmldoc As New Xml.XmlDocument 'u2026when using .netu2019s system.xml
'create the formcreationparams object
creationPackage = SBO_Application.CreateObject( _
SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
'please note: these parameters override corresponding data in the xml
creationPackage.UniqueID = "Sales 111"
creationPackage.FormType = "Sales Order"
creationPackage.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Sizable
'just a sample for an xml string describing a formu2026 same as used for loadbatchactions
oxmldoc.Load("c:program filessapsap business oneSales Order.srf")
creationPackage.XmlData = oxmldoc.InnerXml
'add the form to the sbo application
oForm = SBO_Application.Forms.AddEx(creationPackage)
'set the form title and set it visible!
oForm.Visible = True
''''''''''''''''''''''''''''''Data Binding
'''''''''''binding data from DBDataSource to form items
Dim oDBDataSource As SAPbouiCOM.DBDataSource
Dim oItem As SAPbouiCOM.Item
Dim oEdit As SAPbouiCOM.EditText
'''''1st edit box
oItem = oForm.Items.Item("4")
oEdit = oItem.Specific
oForm.DataSources.DBDataSources.Add("AACT")
oEdit.DataBind.SetBound(True, "AACT", "AcctCode")
' getting the data sources bound to the form
oDBDataSource = oForm.DataSources.DBDataSources.Item("AACT")
oDBDataSource.Query()
'''''2nd edit box
oItem = oForm.Items.Item("5")
oEdit = oItem.Specific
oForm.DataSources.DBDataSources.Add("AACT")
oEdit.DataBind.SetBound(True, "AACT", "AcctName")
' getting the data sources bound to the form
oDBDataSource = oForm.DataSources.DBDataSources.Item("AACT")
oDBDataSource.Query()
''''3rd edit box
oItem = oForm.Items.Item("6")
oEdit = oItem.Specific
oForm.DataSources.DBDataSources.Add("AACT")
oEdit.DataBind.SetBound(True, "AACT", "CurrTotal")
' getting the data sources bound to the form
oDBDataSource = oForm.DataSources.DBDataSources.Item("AACT")
oDBDataSource.Query()
End Sub