vb Code:
  1. Dim OBJ As Object = mvsp.MVResultSetGetRows.ToArray()
  2.  
  3.                 Dim MyFields As String() = Split(MY_D3_Fields, " ")
  4.  
  5.                 For i As Integer = 0 To MyFields.Length - 1
  6.                     dt.Columns.Add(MyFields(i))
  7.                 Next
  8.                 Dim Li = 0, cnt As Integer = OBJ.length
  9.                 Do Until Li = cnt
  10.                     Try
  11.  
  12.                         Dim tmp As String() = Split(OBJ(Li).ToString, "þ")
  13.                         Dim cols As Integer = tmp.Length
  14.                         Dim v(cols - 1) As Object
  15.                         For c As Integer = 0 To cols - 1
  16.                             v(c) = tmp(c)
  17.                         Next
  18.  
  19.                         dt.Rows.Add(v)
  20.                     Catch ex As Exception
  21.                     End Try
  22.                     Li += 1
  23.                 Loop
  24.                 MY_DT = New DataTable
  25.                 MY_DT = dt