System.Activities System.Activities.Statements System.Activities.Expressions System.Activities.Validation System.Activities.XamlIntegration Microsoft.VisualBasic Microsoft.VisualBasic.Activities System System.Collections System.Collections.Generic System.Data System.Diagnostics System.Drawing System.IO System.Linq System.Net.Mail System.Xml System.Xml.Linq UiPath.Core UiPath.Core.Activities System.Windows.Markup System.ComponentModel System.Runtime.Serialization System.Xml.Serialization System.Reflection System.Runtime.InteropServices System.Collections.ObjectModel System.Activities.DynamicUpdate System.Activities Microsoft.VisualBasic mscorlib System.Data System.Data.DataSetExtensions System System.Drawing System.Core System.Xml System.Xml.Linq PresentationFramework WindowsBase PresentationCore System.Xaml UiPath.System.Activities UiPath.UiAutomation.Activities System.Runtime.Serialization True [dtMerge] [dt1.Copy] [dtResult] [dt1.Clone] [arrColSet] [dt1.Columns.cast(of DataColumn).Select(Function (x) x.ColumnName).toArray] [dtResult] [( From row In dtMerge.AsEnumerable() Group row By k = row("Process").ToString.Trim Into grp=Group Let lt = grp.Select(Function(g) arrColSet.Select(Function(cn) Tuple.Create(cn, g(cn)))).SelectMany(Function(t) t) Let ltf = lt.Where(Function(t) Not (IsNothing(t.Item2) OrElse String.IsNullOrEmpty(t.Item2.ToString.Trim))) Let ra= arrColSet.Select(Function(c) ltf.Where(Function(t) c.Equals(t.Item1)).DefaultIfEmpty(New Tuple(Of String, Object)(c, Nothing)).First().Item2).ToArray Select r = dtResult.Rows.Add(ra) ).CopyToDataTable] [arrAddedProjects] [dt2.AsEnumerable.Select(Function (x) x(0).toString.Trim).Except(dt1.AsEnumerable.Select(Function (x) x(0).toString.Trim)).ToArray] True True [row("Comments")] [row("Comments").toString & " Added"] True [arrPartStatus] [(From kvp In dictCheckConfig Where Not String.IsNullOrEmpty(row(kvp.Key).toString.Trim) Select s = kvp.Value).toArray] [row("Comments")] [row("Comments").toString & " " & String.Join(",",arrPartStatus)]