主题：[求助]关于系统内自动建立操作日志的问题

试试

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