根据小肖的帮助:
- Private Sub AccountSetting_10000010_OnFormEvents(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 = MyCtlUID.mtxbz Then
- Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
- oCFLEvento = pVal
- If Not oCFLEvento.SelectedObjects Is Nothing Then
- Dim val As String = ""
- val = oCFLEvento.SelectedObjects.GetValue(0, 0)
- '这里就可以利用捕捉到的值了
- End If
- End If
- End Sub