主题：日期类型提取年和月份

If e.DataCol.Name = "B" Then
    If e.newvalue = Nothing Then
        e.DataRow("A")= Nothing
    Else
        e.DataRow("A") = format(e.newvalue, "yyyyMM")
    End If
End If