试试
If e.DataCol.Name <> "日志" AndAlso e.OldValue <> Nothing Then
Dim cmd As New SQLCommand
Dim dtt As DataTable
cmd.ConnectionName = "数据源名"
cmd.CommandText = "select * From {operation} where 1=2"
dtt = cmd.ExecuteReader(True) '记得将参数设置为True
Dim drr As DataRow = dtt.AddNew()
drr("用户") = _xingming
drr("日期") = today()
drr("类型") = "成交管理"
drr("操作") = vbcrlf & e.DataCol.Name & " " & e.OldValue & " " & e.NewValue
dtt.save
End If