11-01-22 08:55 AM
Answered! Go to Answer.
11-01-22 10:50 AM
Output_Collection = (From row In Input_Collection _
Group row By a = row(Field_Name).Trim.ToString Into grp = Group _
Where grp.Count=1 _
Select grp.ToList).SelectMany(Function(x) x).CopyToDataTable()
11-01-22 09:25 AM
SELECT * FROM [<Sheet_Name>$] WHERE [Name] IN (SELECT [Name] FROM [<Sheet_Name>$] GROUP BY [Name] HAVING COUNT (*) = 1)
'var
Collection_Out = Collection_In.GroupBy(item => item.Name).Where(g => g.Count() == 1
).Select(g => g.Single());
Do let me know if you want to know how to create a LINQ VBO, I have posted multiple threads on this as well otherwise I can show detailed steps as well.11-01-22 10:03 AM
11-01-22 10:26 AM
var
Collection_Out = Collection_In.GroupBy(item => item.Name).Where(g => g.Count() == 1
).Select(g => g.Single());
11-01-22 10:50 AM
Output_Collection = (From row In Input_Collection _
Group row By a = row(Field_Name).Trim.ToString Into grp = Group _
Where grp.Count=1 _
Select grp.ToList).SelectMany(Function(x) x).CopyToDataTable()
11-01-22 11:15 AM
11-01-22 04:46 PM
Dim DT As New DataTable()
Dim rows() As DataRow
DT.Columns.Add("Column Name")
DT.Columns.Add("RowIndex")
DT.Columns.Add("ColumnIndex")
Dim rowindex As Integer = 0
Dim columnindex As Integer = 1
For Each Column As DataColumn In in_DT.Columns
rows = in_DT.Select(Column.ColumnName + " Like '%" + valuetofind + "%'")
If rows.Length > 0 Then
For Each row As DataRow In rows
rowindex = in_DT.Rows.IndexOf(row)+1
Dim dr As DataRow = DT.NewRow()
dr("Column Name")= Column.ColumnName
dr("RowIndex") = rowindex
dr("ColumnIndex") = columnindex
DT.Rows.Add(dr)
Next
Else
rowindex = 0
End If
columnindex = columnindex + 1
Next
out_DT = DT
12-01-22 05:52 AM
03-02-23 07:08 PM
07-02-23 08:37 AM
Output_Collection = Input_Collection.DefaultView.ToTable(True)