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 UiPath.Excel System.Collections.ObjectModel UiPath.Excel.Activities System.Activities.DynamicUpdate System.ComponentModel System.Runtime.Serialization System.Xml.Serialization System.Text.RegularExpressions System.Reflection System.Runtime.InteropServices 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 UiPath.Excel.Activities.Design UiPath.Excel.Activities UiPath.Excel System.Runtime.Serialization System.ValueTuple System.ServiceModel UiPath.Mail UiPath.OCR.Activities.Design UiPath.UIAutomationCore Microsoft.Bcl.AsyncInterfaces System.Memory True True [dtTemp] [(From d1 In dt1.AsEnumerable Join d2 In dt2.AsEnumerable On d1("Week Date").toString.Trim.Substring(0,10) Equals d2("Week Date").toString.Trim.Substring(0,10) Let ra = d2.ItemArray.Concat(d1.ItemArray.Skip(1)).ToArray Select dtTemp.Rows.Add(ra)).CopyToDataTable] True [arrOrderedWK] [(From d In dtTemp.AsEnumerable Let w = CInt(Regex.Match(d("Week Format").toString,"\d+").toString) Order By w Select d("Week Format").toString.Trim).Distinct().toArray] True [dtResult] [(From d In dtTemp.AsEnumerable Group d By k=d("Part Number").toString.Trim Into grp=Group Let dv = grp.ToDictionary(Function (g) g("Week Format").toString, Function (g) g("Qty").toString) Let ra1 = arrOrderedWK.Select(Function (w) If( dv.ContainsKey(w), dv(w),"" )).toArray Let ra = ra1.prepend(k).toArray Select r= dtResult.Rows.Add(ra)).CopyToDataTable]