If e.DataCol.Name <> "修改字段"
e.DataRow("修改字段") = User.Name
End If
CurrentChanged事件
RibbonTabs("Common").Groups("ClipBoard").Items("Paste").Text = e.Table.Current("修改字段")