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