参数的顺序要和sql里列的顺序一致
cmd.CommandText = "Up date " & mr.Table.Name & " Set 版本号 = 版本号+1 ,是否审核 = ? ,审核人 = ? ,审核时间 = ? where ID = ?"
'MessageBox.Show("字符串:" & cmd.CommandText)
cmd.Parameters.Clear
cmd.Parameters.Add("@是否审核", True) cmd.Parameters.Add("@审核人", PublicUserName)
cmd.Parameters.Add("@审核时间", dn)
cmd.Parameters.Add("@ID", mr("ID"))