Dim accountLog As Model.M_DGY_AccountLog = New Model.M_DGY_AccountLog(-1, realAccount.Account, String.Empty, Master.Manager_User.U_ID, Master.Manager_User.NickName, DateTime.Now)
这样为什么会算术溢出~

Model.M_DGY_AccountLog 这个是你自己写的函数？
自己写的或者是第三方的 函数、类，在这里发报错信息，是没有人能帮你的，
除非你能提供这个 函数 或者类 源代码。