drawcell事件,写代码
If e.Col.name = "日期" AndAlso e.text > "" Then e.text = Format(cdate(e.text), "yyyy-MM")End If