这句代码报错:
预览时正常,发布后报错。
Dim Datenew As Date = Date.Today If CStr(Datenew.Month) = "1" And CStr(Datenew.Day) = "1" MessageBox.Show("今天是" & Datenew.Year & "年的第一天,请设置编号前缀!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information) = DialogResult.YesEnd If