2,893 questions
Check this code:
Dim result As String()() = MyDataTable.AsEnumerable.Select(Function(r) r.ItemArray.Select(Function(x) x.ToString).ToArray).ToArray
This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
Dim MyDataTable As New DataTable
MyDataTable.Columns.Add("C1")
MyDataTable.Columns.Add("C2")
MyDataTable.Columns.Add("C3")
MyDataTable.Rows.Add({1, "A"})
MyDataTable.Rows.Add({2, "C"})
MyDataTable.Rows.Add({3, "F"})
dim SpecificColumns() as String={"C2","C3"}
'Need 2D Array Result From specific columns
Dim Resalt As String () () = MyDataTable.Columns("C2") And MyDataTable.Columns("C3")
Like This but By From Data Table ..Thank
Dim stt5 As String = "1=A,2=C,3=F"
Dim ResultArray As String()() = stt5.Split(","c).Select(Function(p) p.Split("="c).Take(2).Select(Function(s) s).ToArray).ToArray
Check this code:
Dim result As String()() = MyDataTable.AsEnumerable.Select(Function(r) r.ItemArray.Select(Function(x) x.ToString).ToArray).ToArray