Vb.net 将LINQ数据获取到DataTable中

Vb.net 将LINQ数据获取到DataTable中,vb.net,linq,Vb.net,Linq,我的任务是接管一些用VisualBasic编写的遗留报告,并负责更新一些报告,我能看到的唯一方法是使用LINQ,我在这方面花了很长时间,过去一周我一直在谷歌上尝试整理它,但我只是缺少了一些“东西” 我有一个datatable,它有10个列,我需要将两个列分组,将分组结果放入另一个datatable中 到目前为止我所拥有的是 Dim Rep_Country_DataTable As New System.Data.DataTable Dim Rep_Country_Group As IEnumer

我的任务是接管一些用VisualBasic编写的遗留报告,并负责更新一些报告,我能看到的唯一方法是使用LINQ,我在这方面花了很长时间,过去一周我一直在谷歌上尝试整理它,但我只是缺少了一些“东西”

我有一个datatable,它有10个列,我需要将两个列分组,将分组结果放入另一个datatable中

到目前为止我所拥有的是

Dim Rep_Country_DataTable As New System.Data.DataTable
Dim Rep_Country_Group As IEnumerable = From Data_Row In Export_DataTable.Select("REP IS NOT NULL").AsEnumerable
                                       Group Data_Row By Rep = Data_Row.Field(Of String)("REP"),
                                                         Country = Data_Row.Field(Of String)("COUNTRY") Into Group
                                       Select Rep, Country
LINQ工作正常,我可以在“Rep_Country_Group”中看到分组数据。我现在的问题是将数据放入“Rep_Country_Group_DataTable”数据表,这是我无法理解的部分


我非常感谢您对我的帮助,因为我知道这是我错过的一些简单的东西。

感谢您的回复。使用这些回复,我能够改进我的谷歌搜索并找到我的解决方案

这是解决我问题的修订代码

Dim Rep_Country_DataTable As New System.Data.DataTable
With DomainCountry_DataTable.Columns
   .Add("REP", GetType(String))
   .Add("COUNTRY", GetType(String))
End With
Dim Rep_Country_Group As IEnumerable(Of System.Data.DataRow) = (From Data_Row As System.Data.DataRow In Export_DataTable.Select("REP IS NOT NULL").AsEnumerable
                               Group Data_Row By Rep = Data_Row.Field(Of String)("REP"),
                                                 Country = Data_Row.Field(Of String)("COUNTRY") Into Group
                               Select New With {.Rep = Rep,
                                                .Country = Country}).Select(Function(new_row)
                                                                                Dim New_DataRow As System.Data.DataRow = DomainCountry_DataTable.NewRow()
                                                                                New_DataRow("REP") = new_row.Rep
                                                                                New_DataRow("COUNTRY") = new_row.Country
                                                                                Return New_DataRow
                                                                            End Function)
也许这就是你想要的。我会选择FastMember: