主题：[求助]代码运行出错（已解决）

错误原因很清楚啊，你定义了：

Dim nd2,nd3 As WinForm.RadioButton

但是nd2和nd3没有指定值，只是定义了变量，所以下面的代码会出错：

If nd2.Checked = True Then ‘按正常时间段统计

你的加上：

Dim nd2,nd3 As WinForm.RadioButton

nd2 = e.form.Controls("控件名称")
nd3 = e.form.Controls("控件名称")