DataColChanged事件
If e.DataCol.Name = "日期" Then
e.DataRow("月份") = Format(e.NewValue, "yyyyMM")
End If