If e.DataCol.Name <> "日志" AndAlso e.OldValue <> Nothing Then
Dim cmd As New SQLCommand
Dim dtt As DataTable
Dim drr As DataRow = dtt.AddNew()
cmd.CommandText = "select * Fr om {operation}"
dtt = cmd.ExecuteReader(True) '记得将参数设置为True
drr("用户") = _xingming
drr("日期") = today()
drr("类型") = "成交管理"
drr("操作") = vbcrlf & e.DataCol.Name & " " & e.OldValue & " " & e.NewValue
dtt.save
End If
为什么这样会报错呢