SBO中设定Grid的linkbutton和chooseFromList

1－加入控件：

1. gJDT2.Columns.Item("U_ItemCode").Type=SAPbouiCOM.BoGridColumnType.gct_EditText
2. DimU_ItemCodeAsSAPbouiCOM.EditTextColumn=gJDT2.Columns.Item("U_ItemCode")
3. U_ItemCode.LinkedObjectType=SAPbouiCOM.BoLinkedObject.lf_Items
4. 
   
5. DimoCFLCreationParams5AsSAPbouiCOM.ChooseFromListCreationParams=NstAddon.SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
6. oCFLCreationParams5.MultiSelection=False
7. oCFLCreationParams5.ObjectType=SAPbouiCOM.BoLinkedObject.lf_Items
8. oCFLCreationParams5.UniqueID="U_ItemCode"
9. DimU_ItemCode_cflAsSAPbouiCOM.ChooseFromList=MyForm.ChooseFromLists.Add(oCFLCreationParams5)
10. U_ItemCode.ChooseFromListUID="U_ItemCode"
11. U_ItemCode.ChooseFromListAlias="ItemCode"

2。处理事件：

1. '选择科目后给grid赋值
2. PrivateSubSetMyCode(ByValFormUIDAsString,ByRefpValAsSAPbouiCOM.ItemEvent,ByRefBubbleEventAsBoolean)HandlesMe.OnFormEvents
3. IfpVal.EventType=BoEventTypes.et_CHOOSE_FROM_LISTThen
4. IfpVal.ItemUID="gJDT2"Then
5. DimoCFLEventoAsSAPbouiCOM.IChooseFromListEvent
6. oCFLEvento=pVal
7. IfNotoCFLEvento.SelectedObjectsIsNothingThen
8. DimbpCodeAsString=""
9. bpCode=oCFLEvento.SelectedObjects.GetValue(0,0)
10. DimoactAsSAPbobsCOM.ChartOfAccounts=NstAddon.SBO_Company.GetBusinessObject(BoObjectTypes.oChartOfAccounts)
11. Ifoact.GetByKey(bpCode)Then
12. DimmyCodeAsString=oact.Name
13. Me.mJDT2Table.SetValue("U_AcctName",pVal.Row,myCode)
14. Me.mJDT2Table.SetValue("U_AcctCode",pVal.Row,bpCode)
15. Me.mJDT2Table.SetValue("U_ShortName",pVal.Row,bpCode)
17. EndIf
18. EndIf
20. EndIf
21. EndIf
23. EndSub

3.自定义的对象。(自定义的对象没有办法加linkButton,只能加ChoseFromList)

2. '国家
3. IfoCFLEvento.ChooseFromListUID="U_AreaCode"Then
4. DimoactAsSAPbobsCOM.UserTable=NstAddon.SBO_Company.UserTables.Item("JcbmGjCode")
5. Ifoact.GetByKey(bpCode)Then
6. DimmyCodeAsString=oact.Name
7. Me.mJDT2Table.SetValue("U_AreaCode",pVal.Row,bpCode)
8. Me.mJDT2Table.SetValue("U_AreaName",pVal.Row,myCode)
9. EndIf
10. EndIf