主题：Null 的问题

请教老师，下面分页目录树代码，写在AFTERLOAD，如果该表增加了一行，但还没有进入编辑状态，编制日期还未填写的情况下，重新打开项目后，报错“无效NULL”，如果已经填入日期，就不报错，但是流程还未到该表的编制，老师，下面的代码应该怎样调整

 

'生成目录树
Dim cmd17 As New SQLCommand
Dim dt17 As DataTable
cmd17.C 
cmd17.C  ommandText = "SELECT DISTINCT Cstr(Year(编制日期)) + '年' As 年, Cstr(Month(编制日期)) + '月' As 月, 信息编号 F   rom {投标策商任务书}"
dt17 = cmd17.ExecuteReader()
Dim trv17 As WinForm.TreeView = e.Form.Controls("TreeView11")
trv17.BuildTree(dt17,"年|月|信息编号")

'加载第一页数据
With DataTables("投标策商任务书")
    .LoadFilter = "" '清除加载条件
    .LoadPage = 0 '加载第一页
    .LoadTop = 20 '每页20行
    .Load()
    e.Form.Controls("TextBox12").Value = 1 & "/" & .TotalPages
End With

cmd17.CommandText = "SELECT DISTINCT Cstr(Year(编制日期)) + '年' As 年, Cstr(Month(编制日期)) + '月' As 月, 信息编号 F   rom {投标策商任务书} where 编制日期 is not null"