主题：从日期列提取年月

datacolchanged事件

If e.DataCol.name = "日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("年月") = Nothing
    Else
        e.DataRow("年月") = format(e.newvalue, "yyyy-MM")
    End If
End If