vb Code:
Dim OBJ As Object = mvsp.MVResultSetGetRows.ToArray() Dim MyFields As String() = Split(MY_D3_Fields, " ") For i As Integer = 0 To MyFields.Length - 1 dt.Columns.Add(MyFields(i)) Next Dim Li = 0, cnt As Integer = OBJ.length Do Until Li = cnt Try Dim tmp As String() = Split(OBJ(Li).ToString, "þ") Dim cols As Integer = tmp.Length Dim v(cols - 1) As Object For c As Integer = 0 To cols - 1 v(c) = tmp(c) Next dt.Rows.Add(v) Catch ex As Exception End Try Li += 1 Loop MY_DT = New DataTable MY_DT = dt




Reply With Quote