Append data more column

Help Activities
, ,
1

Now I copy data column A-V and append to sheet Incorrect Column A-V
Code as below.

image

dt.result.DefaultView.ToTable(False,dt.result.Columns.Cast(Of DataColumn).Take(22).Select(Function(dc) dc.ColumnName).ToArray()).AsEnumerable.OrderBy(Function(r) r("Start")).CopyToDataTable

It want to copy column A-V and column Y
And paste in column A-W

Please guide me for solve it.

Thank you.

2

@Stef_99

Read till y and then delete the column in between V and Y using deleted column

Cheers

3

Hey @Stef_99

I have solved your query,

dt_Input.DefaultView.ToTable(False,dt_Input.Columns.Cast(Of DataColumn).AsEnumerable.Where(Function(dc) dt_Input.Columns.IndexOf(dc)<22 Or dt_Input.Columns.IndexOf(dc)=24).Select(Function(x) x.ToString).ToArray()).AsEnumerable.OrderBy(Function(r) r("Start")).CopyToDataTable

You can match expected output with the below screenshot,

Screenshot for your reference:

image
image1366×712 78.4 KB

Regards,
Ajay Mishra

1 Like
4

@Stef_99

You can try this

dt.DefaultView.ToTable(False,dt.Columns.Cast(Of DataColumn).Take(22).Select(Function(dc) dc.ColumnName).ToArray().append(dt.Columns(24).ColumnName.ToString).toarray).AsEnumerable.OrderBy(Function(r) r("Start")).CopyToDataTable
5

@Ajay_Mishra I have question why you have or

dt_Input.Columns.IndexOf(dc)<22
or
dt_Input.Columns.IndexOf(dc)=24

6

@Stef_99 The Columns which have indexes from 0 to 21 or 24 these columns will be filtered out!

Regards,
Ajay Mishra

1 Like
8

This topic was automatically closed 3 days after the last reply. New replies are no longer allowed.