Hi Roger
Your points are always well deserved. As i state'd in a another responce to you , im always open minded to another experts opinion ,especially when good stuff comes around.
And please if you dig up your proposed link ! POST it.
And the case from different angle
Well there is a date column that can be added also. Then there are no fiddleling around and it accepts the relation also.
http://msdn2.microsoft.com/en-us/library/7tas5c80(vs.80).aspx
Imports System.Data
Public Class Form1
Dim con As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim daParent As OleDb.OleDbDataAdapter
Dim daChild As OleDb.OleDbDataAdapter
Dim sql As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim col As New CalendarColumn()
Me.Childgrd.Columns.Add(co l)
'Me.Childgrd.RowCount = 5
'Dim row As DataGridViewRow
'For Each row In Me.Childgrd.Rows
'    row.Cells(0).Value = DateTime.Now
'Next row
Me.Text = "DataGridView calendar column demo"
con.ConnectionString = "PROVIDER=Microsoft.Jet.OL EDB.4.0;Da ta Source = C:\Test.mdb"
sql = "SELECT * FROM Ansatte"
con.Open()
daParent = New OleDb.OleDbDataAdapter(sql , con)
daParent.FillSchema(ds, SchemaType.Mapped, "Ansatte")
daParent.Fill(ds, "Ansatte")
sql = "SELECT * FROM Ferie"
daChild = New OleDb.OleDbDataAdapter(sql , con)
daChild.FillSchema(ds, SchemaType.Mapped, "Ferie")
daChild.Fill(ds, "Ferie")
con.Close()
Parentgrd.DataSource = ds.Tables("Ansatte")
Childgrd.DataSource = ds.Tables("Ferie")
ds.Tables("Ansatte").Colum ns("ID").A utoIncreme nt = True
ds.Tables("Ansatte").Colum ns("ID").A utoIncreme ntSeed = -1
ds.Tables("Ansatte").Colum ns("ID").A utoIncreme ntSeed = -1
ds.Tables("Ferie").Columns ("ID").Aut oIncrement = True
SetdataRel()
End Sub
'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'    Dim cb As New OleDb.OleDbCommandBuilder( daParent)
'    daParent.Update(ds, "Ansatte")
'    Dim cb1 As New OleDb.OleDbCommandBuilder( daChild)
'    daChild.Update(ds, "Ferie")
'    MsgBox("Data updated")
'End Sub
Public Sub SetdataRel()
' Add the relation between Suppliers/Products
ds.Relations.Add(New DataRelation(relationName: ="relParCh i", parentColumn:=ds.Tables("A nsatte").C olumns("ID "), _
childColumn:=ds.Tables("Fe rie").Colu mns("Fremm edNøgle"), _
createConstraints:=False))
'BINDINGS ALTERED - SEE PREVIOUS COMMENT
' Set the Suppliers grid
Parentgrd.DataSource = ds.Tables("Ansatte")
' Set the Products grid
Childgrd.DataSource = ds.Tables("Ansatte")
Childgrd.DataMember = "relParChi"
End Sub
End Class
Imports System
Imports System.Windows.Forms
Public Class CalendarColumn
Inherits DataGridViewColumn
Public Sub New()
MyBase.New(New CalendarCell())
End Sub
Public Overrides Property CellTemplate() As DataGridViewCell
Return MyBase.CellTemplate
End Get
Set(ByVal value As DataGridViewCell)
' Ensure that the cell used for the template is a CalendarCell.
If (value IsNot Nothing) AndAlso _
Not value.GetType().IsAssignab leFrom(Get Type(Calen darCell)) _
Throw New InvalidCastException("Must be a CalendarCell")
End If
MyBase.CellTemplate = value
End Set
End Property
End Class
Public Class CalendarCell
Inherits DataGridViewTextBoxCell
Public Sub New()
' Use the short date format.
Me.Style.Format = "d"
End Sub
Public Overrides Sub InitializeEditingControl(B yVal rowIndex As Integer, _
ByVal initialFormattedValue As Object, _
ByVal dataGridViewCellStyle As DataGridViewCellStyle)
' Set the value of the editing control to the current cell value.
MyBase.InitializeEditingCo ntrol(rowI ndex, initialFormattedValue, _
dataGridViewCellStyle)
Dim ctl As CalendarEditingControl = _
CType(DataGridView.Editing Control, CalendarEditingControl)
ctl.Value = CType(Me.Value, DateTime)
End Sub
Public Overrides ReadOnly Property EditType() As Type
' Return the type of the editing contol that CalendarCell uses.
Return GetType(CalendarEditingCon trol)
End Get
End Property
Public Overrides ReadOnly Property ValueType() As Type
' Return the type of the value that CalendarCell contains.
Return GetType(DateTime)
End Get
End Property
Public Overrides ReadOnly Property DefaultNewRowValue() As Object
' Use the current date and time as the default value.
Return DateTime.Now
End Get
End Property
End Class
Class CalendarEditingControl
Inherits DateTimePicker
Implements IDataGridViewEditingContro l
Private dataGridViewControl As DataGridView
Private valueIsChanged As Boolean = False
Private rowIndexNum As Integer
Public Sub New()
Me.Format = DateTimePickerFormat.Short
End Sub
Public Property EditingControlFormattedVal ue() As Object _
Implements IDataGridViewEditingContro l.EditingC ontrolForm attedValue
Return Me.Value.ToShortDateString ()
End Get
Set(ByVal value As Object)
If TypeOf value Is String Then
Me.Value = DateTime.Parse(CStr(value) )
End If
End Set
End Property
Public Function GetEditingControlFormatted Value(ByVa l context _
As DataGridViewDataErrorConte xts) As Object _
Implements IDataGridViewEditingContro l.GetEditi ngControlF ormattedVa lue
Return Me.Value.ToShortDateString ()
End Function
Public Sub ApplyCellStyleToEditingCon trol(ByVal dataGridViewCellStyle As _
DataGridViewCellStyle) _
Implements IDataGridViewEditingContro l.ApplyCel lStyleToEd itingContr ol
Me.Font = dataGridViewCellStyle.Font
Me.CalendarForeColor = dataGridViewCellStyle.Fore Color
Me.CalendarMonthBackground = dataGridViewCellStyle.Back Color
End Sub
Public Property EditingControlRowIndex() As Integer _
Implements IDataGridViewEditingContro l.EditingC ontrolRowI ndex
Return rowIndexNum
End Get
Set(ByVal value As Integer)
rowIndexNum = value
End Set
End Property
Public Function EditingControlWantsInputKe y(ByVal key As Keys, _
ByVal dataGridViewWantsInputKey As Boolean) As Boolean _
Implements IDataGridViewEditingContro l.EditingC ontrolWant sInputKey
' Let the DateTimePicker handle the keys listed.
Select Case key And Keys.KeyCode
Case Keys.Left, Keys.Up, Keys.Down, Keys.Right, _
Keys.Home, Keys.End, Keys.PageDown, Keys.PageUp
Return True
Case Else
Return False
End Select
End Function
Public Sub PrepareEditingControlForEd it(ByVal selectAll As Boolean) _
Implements IDataGridViewEditingContro l.PrepareE ditingCont rolForEdit
' No preparation needs to be done.
End Sub
Public ReadOnly Property RepositionEditingControlOn ValueChang e() _
As Boolean Implements _
IDataGridViewEditingContro l.Repositi onEditingC ontrolOnVa lueChange
Return False
End Get
End Property
Public Property EditingControlDataGridView () As DataGridView _
Implements IDataGridViewEditingContro l.EditingC ontrolData GridView
Return dataGridViewControl
End Get
Set(ByVal value As DataGridView)
dataGridViewControl = value
End Set
End Property
Public Property EditingControlValueChanged () As Boolean _
Implements IDataGridViewEditingContro l.EditingC ontrolValu eChanged
Return valueIsChanged
End Get
Set(ByVal value As Boolean)
valueIsChanged = value
End Set
End Property
Public ReadOnly Property EditingControlCursor() As Cursor _
Implements IDataGridViewEditingContro l.EditingP anelCursor
Return MyBase.Cursor
End Get
End Property
Protected Overrides Sub OnValueChanged(ByVal eventargs As EventArgs)
' Notify the DataGridView that the contents of the cell have changed.
valueIsChanged = True
Me.EditingControlDataGridV iew.Notify CurrentCel lDirty(Tru e)
MyBase.OnValueChanged(even targs)
End Sub
End Class