以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Null 的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89580)
--  作者：douglas738888
--  发布时间：2016/8/24 22:34:00
--  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
--  作者：大红袍
--  发布时间：2016/8/24 22:36:00
--  
cmd17.CommandText = "SELECT DISTINCT Cstr(Year(编制日期)) + \'年\' As 年, Cstr(Month(编制日期)) + \'月\' As 月, 信息编号 F   rom {投标策商任务书} where 编制日期 is not null"