改成
If e.DataCol.Name <> "Log" Then If e.DataRow("Log") > "" Then e.DataRow("Log") = e.DataRow("Log") & vbcrlf & vars("用户") & "|" & Date.Now & "|" & e.DataCol.Name Else e.DataRow("Log") = vars("用户") & "|" & Date.Now & "|" & e.DataCol.Name End IfEnd If