Drawcell事件
If e.Col.Name = "Data" AndAlso e.Text > "" Then
e.Text = Format(cdate(e.text), "yy-MM")
End If