To select an OptionBtn item, the item must be bound to a data source (UserDataSource or DBDataSource) using the DataBind property.
Dim optBtn As SAPbouiCOM.OptionBtn Dim oFrm As SAPbouiCOM.Form Dim oItem As SAPbouiCOM.Item Dim oUserdatasource As SAPbouiCOM.UserDataSource ' set oFrm = .. 'Option 1 Set oItem = oFrm.Items.Add("BD_rbRes", it_OPTION_BUTTON) oItem.Left = 240 oItem.Top = 10 oItem.Height = 16 oItem.Width = 220 Set optBtn = oItem.Specific optBtn.Caption = "Button One" Set oUserDataSource = oFrm.DataSources.UserDataSources.Add("BD_resDS", dt_SHORT_TEXT, 1) optBtn.DataBind.SetBound True, , "BD_resDS" 'Option 2 Set oItem = oFrm.Items.Add("BD_rbPost", it_OPTION_BUTTON) oItem.Left = 240 oItem.Top = 30 oItem.Height = 16 oItem.Width = 220 Set optBtn = oItem.Specific optBtn.Caption = "Button Two" oItem.Visible = False Set optBtn = oItem.Specific optBtn.GroupWith ("BD_rbRes")
OptionBtn Members