改成这样
Dim dr As DataRow = DataTables("系统日志").addnewdr("日志")= _username & "进入了" & CurrentTable.namedr.save