DrawCell事件
If e.Col.name = "日期" AndAlso e.text > "" Then e.text = Format(cdate(e.text), "MM-dd")End If