Skip to Content
0
Apr 28, 2009 at 03:21 AM

copy data of a matrix to the matrix in another matrix

123 Views

hi, all,

I tried to copy data of a matrix to the matrix in another matrix using following codes. The situation is

that the data being copied is shown on the target matrix but it dispear immediately after the for loop.

The source matrix is bouned to a dbdatasource and the target matrix is not. Is the problem caused by

data bind? Thanks.

    Private Sub DataPRToPO(ByVal mAns As Integer)
        Dim oitem As SAPbouiCOM.Item = oForm.Items.Item("mtx_0")
        Dim SourceMtx As SAPbouiCOM.Matrix = CType(oitem.Specific, SAPbouiCOM.Matrix)
        Dim oitem1 As SAPbouiCOM.Item = oFormPRToPO.Items.Item("mtx_0")
        Dim TargetMtx As SAPbouiCOM.Matrix = CType(oitem1.Specific, SAPbouiCOM.Matrix)

        oFormPRToPO.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE

        Dim i As Integer
        For i = 1 To SourceMtx.RowCount
            TargetMtx.AddRow()
            TargetMtx.Columns.Item(0).Cells.Item(i).Specific.string = i
            TargetMtx.Columns.Item(1).Cells.Item(i).Specific.string = SourceMtx.Columns.Item(1).Cells.Item(i).Specific.string
            TargetMtx.Columns.Item(2).Cells.Item(i).Specific.string = SourceMtx.Columns.Item(2).Cells.Item(i).Specific.string
            TargetMtx.Columns.Item(3).Cells.Item(i).Specific.string = SourceMtx.Columns.Item(3).Cells.Item(i).Specific.string
            TargetMtx.Columns.Item(4).Cells.Item(i).Specific.string = SourceMtx.Columns.Item(4).Cells.Item(i).Specific.string
            TargetMtx.Columns.Item(5).Cells.Item(i).Specific.string = SourceMtx.Columns.Item(3).Cells.Item(i).Specific.string
            If mAns = 1 Then
                TargetMtx.Columns.Item(6).Cells.Item(i).Specific.string = SourceMtx.Columns.Item(4).Cells.Item(i).Specific.string
            End If
        Next
        oFormPRToPO.Select()
        oFormPRToPO.Mode = SAPbouiCOM.BoFormMode.fm_EDIT_MODE
end sub