How to get All Columns(Any Type) from Table1 To One Column(As String) On Table2 _ 'Linq'

Question

How to get All Columns(Any Type) from Table1 To One Column(As String) On Table2 _ 'Linq'

Mansour_Dalir 2,036

   Dim Table1 As New DataTable
        Table1.Columns.Add("C1")
        Table1.Columns.Add("C2")
        Table1.Columns.Add("C3")
        Table1.Rows.Add({1, "A","C"})
        Table1.Rows.Add({2, "B","D"})
        Table1.Rows.Add({3, "C","D"})

   Dim Table2 As New DataTable
    Dim sttSeparator as String="<>" 'Use between columns
'Need Result
  Table2.Columns.Add("AllColumnsTable1") 'As String
  Table2.Rows.Add("1<>A<>C")
  Table2.Rows.Add("2<>B<>D")
  Table2.Rows.Add("3<>C<>D")

0 comments

Answer accepted by question author

0 additional answers

Your answer

Answer 1

Viorel 126.9K

For example:

Table1.AsEnumerable.
    Select(Function(r) String.Join(strSeparator, r.ItemArray.Select(Function(i) i.ToString))).
    ToList.ForEach(Sub(r) Table2.Rows.Add(r))

Mansour_Dalir 2,036 Reputation points

2024-01-13T02:35:03.98+00:00

Hi Viorel . If possible, change the answer to end with 'CopyToDataTable() '

Viorel 126.9K

To use CopyToDataTable:

Table1.AsEnumerable.Select(Function(r)
                                Dim n As DataRow = Table2.NewRow
                                n("AllColumnsTable1") = String.Join(strSeparator, r.ItemArray.Select(Function(i) i.ToString))
                                Return n
                            End Function).CopyToDataTable(Table2, LoadOption.PreserveChanges)

Share via

How to get All Columns(Any Type) from Table1 To One Column(As String) On Table2 _ 'Linq'

0 additional answers

Your answer