Public Sub UsingUserDataSource() Dim oForm As SAPbouiCOM.Form Dim oEditText As SAPbouiCOM.EditText '// Add a form Set oForm = SBO_Application.Forms.Add("SimpleForm") '// Add a user data source to the form oForm.DataSources.UserDataSources.Add "EditSource", dt_SHORT_TEXT, 20 '//************************* '// Adding a Text Edit item '//************************* Set oEditText = oForm.Items.Add("EditText1", it_EDIT).Specific '// Bind the text edit item to the user data source oEditText.DataBind.SetBound True, "", "EditSource" End Sub
UserDataSource Members