Skip to Content
0
Former Member
Dec 01, 2011 at 05:24 AM

going in loop when i leave the cell of matrix

39 Views

hi all,

i am doing following code. but when i leave that cell its going in loop and hang the system


 If (pVal.ColUID = ("V_10") Or pVal.ColUID = ("V_3")) And pVal.EventType = SAPbouiCOM.BoEventTypes.et_VALIDATE And pVal.Before_Action = True Then

                    Dim oMat As SAPbouiCOM.Matrix
                    Dim oPkgsize, oPks As SAPbouiCOM.EditText
                    Dim test As SAPbouiCOM.EditText

                    'Dim oEditSample, EditUpperVal, EditLowerVal As SAPbouiCOM.EditText
                    'Dim k As Integer
                    'Dim EntryExit As Boolean = False
                    'Dim val, SelectStr, splt1, splt2, splt, splt3, splt4 As String
                    'Dim FinalVal As Integer
                    'Dim oRecordset6 As SAPbobsCOM.Recordset
                    Try


                        oForm = SBO_Application.Forms.ActiveForm()
                        oMat = oForm.Items.Item("28").Specific
                        oPkgsize = oMat.Columns.Item("V_10").Cells.Item(pVal.Row).Specific
                        oPks = oMat.Columns.Item("V_3").Cells.Item(pVal.Row).Specific

                        TotalPks = Convert.ToDouble(oPkgsize.Value.ToString) * Convert.ToDouble(oPks.Value.ToString)
                        'test.Value = TotalPks
here is going in loop>>>  oMat.Columns.Item("V_14").Cells.Item(pVal.Row).Specific.value = TotalPks.ToString
                        'oForm.DataSources.DBDataSources.Item("@SCHCON1").SetValue("U_PKGQTY", pVal.Row, "0.0")
                        'oForm.DataSources.DBDataSources.Item("@SCHCONT").SetValue("U_REMARKS", 0, TotalPks.ToString)
                        'oForm.DataSources.DBDataSources.Item("@SCHCON1").SetValue("U_BoxNo1", pVal.Row, TotalPks.ToString)
                    Catch ex As Exception

                    End Try
                End If


plz help me..

thanks in advance