主题：记录下修改某列的编辑者和修改内容

select case e.datacol.name
    Case "第一列", "第二列"
        e.DataRow("第十列") = "修改者: " & User.Name & " 修改内容:列(" & e.DataCol.name & ")" & e.NewValue & iif(e.DataRow("第十列")>"", vbcrlf & e.DataRow("第十列"), "")
End Select