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