datarowadded事件
e.DataRow("第一列") = Format(Date.now, "yyyy年MM月dd日(dddd)") & iif(Date.now.hour > 12, "下午", "上午")