Dim ds As SAPbouiCOM.DBDataSource
Try
oitem = oForm.Items.Item("5")
oedit = oitem.Specific
oedit.DataBind.SetBound(True, "@TR_SAMP", "U_no")
oitem = oForm.Items.Item("6")
oedit = oitem.Specific
oedit.DataBind.SetBound(True, "@TR_SAMP", "U_no")
oForm.DataBrowser.BrowseBy = "5"
Catch ex As Exception
oApplication.MessageBox(ex.Message)
End Try