DrawCell事件
If e.Col.Name = "日期" AndAlso e.Text > "" Then
e.Text = Format(cDate(e.Text), "yyyy-MM")
End If