主题：日期如何取值，显示为“YYMM”的年月格式，如“1702”

If e.DataCol.Name = "日期" Then
    If e.newValue = Nothing Then
        e.DataRow("会计期间") = Nothing
    Else
        e.DataRow("会计期间") = Format(cdate(e.DataRow("日期")),"yyMM")
    End  If
End If

 如果只是修改大小写，是不会认为你修改了代码的，你要额外修改一下其它地方，才行。