呵呵,很简单的:
if e.col.name = "日期" then
if e.text > "" then
e.Text = Format(e.Row(“日期"),"yyyy-MM")
end if