SBO中设定Grid的linkbutton和chooseFromList

1－加入控件：

1.  gJDT2.Columns.Item("U_ItemCode").Type = SAPbouiCOM.BoGridColumnType.gct_EditText
2.         Dim U_ItemCode As SAPbouiCOM.EditTextColumn = gJDT2.Columns.Item("U_ItemCode")
3.         U_ItemCode.LinkedObjectType = SAPbouiCOM.BoLinkedObject.lf_Items
4. 
   
5.         Dim oCFLCreationParams5 As SAPbouiCOM.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.         Dim U_ItemCode_cfl As SAPbouiCOM.ChooseFromList = MyForm.ChooseFromLists.Add(oCFLCreationParams5)
10.         U_ItemCode.ChooseFromListUID = "U_ItemCode"
11.         U_ItemCode.ChooseFromListAlias = "ItemCode"

2。处理事件：

1. '选择科目后给grid赋值
2.     Private Sub SetMyCode(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles Me.OnFormEvents
3.         If pVal.EventType = BoEventTypes.et_CHOOSE_FROM_LIST Then
4.             If pVal.ItemUID = "gJDT2" Then
5.                 Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
6.                 oCFLEvento = pVal
7.                 If Not oCFLEvento.SelectedObjects Is Nothing Then
8.                     Dim bpCode As String = ""
9.                     bpCode = oCFLEvento.SelectedObjects.GetValue(0, 0)
10.                     Dim oact As SAPbobsCOM.ChartOfAccounts = NstAddon.SBO_Company.GetBusinessObject(BoObjectTypes.oChartOfAccounts)
11.                     If oact.GetByKey(bpCode) Then
12.                         Dim myCode As String = 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.                     End If
18.                 End If
20.             End If
21.         End If
23.     End Sub

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

2.                     '国家
3.                     If oCFLEvento.ChooseFromListUID = "U_AreaCode" Then
4.                         Dim oact As SAPbobsCOM.UserTable = NstAddon.SBO_Company.UserTables.Item("JcbmGjCode")
5.                         If oact.GetByKey(bpCode) Then
6.                             Dim myCode As String = oact.Name
7.                             Me.mJDT2Table.SetValue("U_AreaCode", pVal.Row, bpCode)
8.                             Me.mJDT2Table.SetValue("U_AreaName", pVal.Row, myCode)
9.                         End If
10.                     End If