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

Addin one extra coloum in the matrix when it in loop

11 Views

dear all

can you tell me what wrong in following code. when it is going on loop aaded one extra coloum in the matrix with blank value..

If topvalue > 0 Then
                                                    oMatrix.Clear()

                                                    With oSubForm.DataSources.DBDataSources.Item("@TINSP3")
                                                        oMatrix = oSubForm.Items.Item("1000001").Specific
                                                        Dim x As Integer
                                                        For x = 1 To topvalue
                                                            oMatrix.AddRow()
                                                            'Dim str As String = oEditText.Value
                                                            .InsertRecord(.Size)
                                                            '.SetValue("U_SAMPLENO", .Size - 1, x)

                                                            .SetValue("U_SAMPLENO", .Size - 1, x)

                                                        Next
                                                        oMatrix.LoadFromDataSource()


                                                    End With
                                                End If