Hi,
I want to new row to be added to the existing table with same order of the response write result. However, it seems to move the last record to the first. Please see part of my code below.
While objDataReader0.Read()
Dim SerialNumber As String = objDataReader0("SerialNumber")
Dim shortSN As String = Right(SerialNumber, 4)
Response.Write(SerialNumber & ",")
'add data to table
Dim tbl2 As TableEx = Nothing
'Iterate through the shapes and set a reference to the table found
For Each shptable As ShapeEx In sld1.Shapes
If TypeOf shptable Is TableEx Then
tbl2 = CType(shptable, TableEx)
End If
Next shptable
If SNnumber > 1 Then
Dim Rows As RowsEx = tbl2.Rows
Dim Row As RowEx = Rows(2)
' add new row at the end of the table
Rows.AddClone(Row, False)
For intIndex As Integer = 1 To objDataReader0.FieldCount - 1
tbl2(0, intIndex + 1).TextFrame.Text = SerialNumber
Next
ElseIf SNnumber = 1 Then
tbl2(0, 2).TextFrame.Text = SerialNumber
End If
End While