LINQ TO DATATABLE

 

Private Function RKtoDT() As DataTable

        Dim dtrk = From c In db.frkmx Select c.单号, c.物料编号, c.物料名称, c.规格, c.数量, c.单价, c.金额, c.备注
        ' Dim Sptype = From c In smsDataContext.SPTypeTable Select c.SPTypeID, c.SPTypeName
        Dim dt As New DataTable()
        dt.Columns.Add("SpID", GetType(Integer))
        dt.Columns.Add("SpName", GetType(String))
        For Each sp In dtrk
            dt.Rows.Add(New Object() {sp.单号, sp.物料编号, sp.物料名称, sp.规格, sp.数量, sp.单价, sp.金额, sp.备注})
        Next
        Return dt
    End Function