F# Query Expression / select operator / changing column headings in result - f#

Question

In the following code:
#r "System.Data.dll"
#r "FSharp.Data.TypeProviders.dll"
#r "System.Data.Linq.dll"
open System
open System.Data
open System.Data.Linq
open Microsoft.FSharp.Data.TypeProviders
open Microsoft.FSharp.Linq
open System.Windows.Forms
type dbSchema = SqlDataConnection<"...">
let grid<'T> (x:seq<'T>) =...
let query1 =
query {
for row in db.Status do
//select row
select (row.StatusID, row.Name)
}
query1 |> Seq.toArray |> grid
What are the better ways to change columns to meaningful headings (e.g. actual Column from data source) instead of of just (Item1 Item2...).
Note: For grid function, please see Tomas Petricek response.
Regards,
IP

Answer 1

You can select the data as a record to let DataGridView infer the names of the columns
type Status =
{
StatusID: int
Name: string
}
let query1 =
query {
for row in db.Status do
select { StatusID = row.StatusID; Name = row.Name }
}

Answer 2

This should a bit nicer now in F# 4.6 using the new Anonymous Record feature.
let query1 =
query {
for row in db.Status do
//select row
select {| StatusID = row.StatusID; Name = row.Name; |}
}
Notice the use of the | character on the insides of the curly braces. This is what now distinguishes regular records from anonymous records in F#. Also notice that the property names StatusID and Name must be redundantly specified in the current form. Although this is similar to how constructing objects works in JavaScript, .NET Developers have been enjoying a more abbreviated syntax through C# anonymous types. The feature to allow for similar implicit property names is suggested as a followup change in future language specifications.