1-加入控件:
2。处理事件:
3.自定义的对象。(自定义的对象没有办法加linkButton,只能加ChoseFromList)
- gJDT2.Columns.Item("U_ItemCode").Type = SAPbouiCOM.BoGridColumnType.gct_EditText
- Dim U_ItemCode As SAPbouiCOM.EditTextColumn = gJDT2.Columns.Item("U_ItemCode")
- U_ItemCode.LinkedObjectType = SAPbouiCOM.BoLinkedObject.lf_Items
- Dim oCFLCreationParams5 As SAPbouiCOM.ChooseFromListCreationParams = NstAddon.SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
- oCFLCreationParams5.MultiSelection = False
- oCFLCreationParams5.ObjectType = SAPbouiCOM.BoLinkedObject.lf_Items
- oCFLCreationParams5.UniqueID = "U_ItemCode"
- Dim U_ItemCode_cfl As SAPbouiCOM.ChooseFromList = MyForm.ChooseFromLists.Add(oCFLCreationParams5)
- U_ItemCode.ChooseFromListUID = "U_ItemCode"
- U_ItemCode.ChooseFromListAlias = "ItemCode"
- '选择科目后给grid赋值
- Private Sub SetMyCode(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles Me.OnFormEvents
- If pVal.EventType = BoEventTypes.et_CHOOSE_FROM_LIST Then
- If pVal.ItemUID = "gJDT2" Then
- Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
- oCFLEvento = pVal
- If Not oCFLEvento.SelectedObjects Is Nothing Then
- Dim bpCode As String = ""
- bpCode = oCFLEvento.SelectedObjects.GetValue(0, 0)
- Dim oact As SAPbobsCOM.ChartOfAccounts = NstAddon.SBO_Company.GetBusinessObject(BoObjectTypes.oChartOfAccounts)
- If oact.GetByKey(bpCode) Then
- Dim myCode As String = oact.Name
- Me.mJDT2Table.SetValue("U_AcctName", pVal.Row, myCode)
- Me.mJDT2Table.SetValue("U_AcctCode", pVal.Row, bpCode)
- Me.mJDT2Table.SetValue("U_ShortName", pVal.Row, bpCode)
- End If
- End If
- End If
- End If
- End Sub
- '国家
- If oCFLEvento.ChooseFromListUID = "U_AreaCode" Then
- Dim oact As SAPbobsCOM.UserTable = NstAddon.SBO_Company.UserTables.Item("JcbmGjCode")
- If oact.GetByKey(bpCode) Then
- Dim myCode As String = oact.Name
- Me.mJDT2Table.SetValue("U_AreaCode", pVal.Row, bpCode)
- Me.mJDT2Table.SetValue("U_AreaName", pVal.Row, myCode)
- End If
- End If