'''''''''''''''''''''''Form code'''''''''''''''''''''''
Imports System.Xml
Imports System.Collections.Generic
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim intCounter As Int32 = 1
Dim dtDate As DateTime = Date.Today
Dim lstVisits As New List(Of MonthlyVisit)
For intCounter = 1 To 12
Dim objVisit As New MonthlyVisit
objVisit.Month = dtDate.Month
objVisit.MonthAndYear = MonthName(dtDate.Month, True) & " " & dtDate.Year.ToString()
objVisit.Visits = 1000 + (intCounter * 12)
objVisit.Year = dtDate.Year
lstVisits.Add(objVisit)
dtDate = DateAdd(DateInterval.Month, 1, dtDate)
Next
'SimpleBinding(lstVisits)
CreateColumnAndBind(lstVisits)
End Sub
Private Sub SimpleBinding(ByVal Data As List(Of MonthlyVisit))
DataGridView1.DataSource = Data
End Sub
Private Sub CreateColumnAndBind(ByVal Data As List(Of MonthlyVisit))
Dim objColumn As DataGridViewColumn
Dim objCellTemplate As DataGridViewCell
''Add Month and year Column
objColumn = New DataGridViewColumn()
objCellTemplate = New DataGridViewTextBoxCell
objCellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleLeft
objColumn.CellTemplate = objCellTemplate
objColumn.DataPropertyName = "MonthAndYear"
objColumn.HeaderText = "Month"
objColumn.Width = 200
DataGridView1.Columns.Add(objColumn)
''Add Visits Column
objColumn = New DataGridViewColumn()
objCellTemplate = New DataGridViewLinkCell
objCellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleRight
objColumn.CellTemplate = objCellTemplate
objColumn.DataPropertyName = "Visits"
objColumn.HeaderText = "Visits This Month"
objColumn.Width = 200
DataGridView1.Columns.Add(objColumn)
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = Data
End Sub
End Class
'''''''''''''''''''''''MonthlyVisit class'''''''''''''''''''''''
Imports Microsoft.VisualBasic
Imports System.Xml
Imports System.Xml.Serialization
Public Class MonthlyVisit
#Region "Private members"
Private _intMonth As Int32
Private _intYear As Int32
Private _strMonthAndYear As String
Private _intVisits As Int32
#End Region
#Region "Constructors"
Public Sub New()
End Sub
#End Region
#Region "Public properties"
Public Property Month() As Int32
Get
Return _intMonth
End Get
Set(ByVal value As Int32)
_intMonth = value
End Set
End Property
Public Property Year() As Int32
Get
Return _intYear
End Get
Set(ByVal value As Int32)
_intYear = value
End Set
End Property
Public Property Visits() As Int32
Get
Return _intVisits
End Get
Set(ByVal value As Int32)
_intVisits = value
End Set
End Property
Public Property MonthAndYear() As String
Get
Return _strMonthAndYear
End Get
Set(ByVal value As String)
_strMonthAndYear = value
End Set
End Property
#End Region
End Class
http://forums.asp.net/t/1311737.aspx
http://www.codegod.de/WebAppCodeGod/webservice-aspnet-with-gridview-and-datagridview-AID310.aspx
http://www.eggheadcafe.com/software/aspnet/32061094/binding-a-generic-list-to.aspx