Private Sub eMatrixO_LostFocusAfter(ByVal sboObject As Object, ByVal pVal As SAPbouiCOM.SBOItemEventArg) Handles eMatrixO.LostFocusAfter
If pVal.ColUID = "Col_0" And pVal.FormMode = SAPbouiCOM.BoFormMode.fm_ADD_MODE Then
Me.eCol_3 = CType(Me.eMatrixO.Columns.Item(1).Cells.Item(pVal.Row).Specific, SAPbouiCOM.EditText)
If Me.eCol_3.Value <> "" Then
Me.eCol_3 = CType(Me.eMatrixO.Columns.Item(1).Cells.Item(Me.eMatrixO.RowCount).Specific, SAPbouiCOM.EditText)
If Me.eCol_3.Value <> "" Then
Me.eMatrixO.AddRow(1, eMatrixO.RowCount + 1)
Me.eCol_3 = CType(Me.eMatrixO.Columns.Item(0).Cells.Item(pVal.Row).Specific, SAPbouiCOM.EditText)
Me.eCol_3.Value = pVal.Row.ToString()
End If
End If
'End If
ElseIf pVal.ColUID = "Col_0" And pVal.FormMode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE Then
Me.eCol_3 = CType(Me.eMatrixO.Columns.Item(1).Cells.Item(pVal.Row).Specific, SAPbouiCOM.EditText)
If Me.eCol_3.Value <> "" Then
Me.eCol_3 = CType(Me.eMatrixO.Columns.Item(1).Cells.Item(Me.eMatrixO.RowCount).Specific, SAPbouiCOM.EditText)
If Me.eCol_3.Value <> "" Then
Me.eMatrixO.AddRow(1, eMatrixO.RowCount + 1)
Me.eCol_3 = CType(Me.eMatrixO.Columns.Item(0).Cells.Item(pVal.Row).Specific, SAPbouiCOM.EditText)
Me.eCol_3.Value = pVal.Row.ToString()
End If
End If
End If
'End If
End Sub