以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]format求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79002)

--  作者:huhu
--  发布时间:2015/12/22 14:57:00
--  [求助]format求助
配货完成时间列是datelongtime
商务发货单想过滤出配货状态是false和配货完成时间是当天的数据,这个表达式怎么写?
Tables("商务发货单").filter=“配货状态 = false and ”

--  作者:大红袍
--  发布时间:2015/12/22 15:00:00
--  
Tables("商务发货单").filter=“配货状态 = false and 配货完成时间 >= #" & date.Today & "# and 配货完成时间 < #" & date.Today.AddDays(1) & "#"
--  作者:huhu
--  发布时间:2015/12/22 15:35:00
--  
自从加了下面代码
Tables("商务发货单").filter="配货状态 = False And 配货完成时间 >= #" & Date.Today & "# and 配货完成时间 < #" & Date.Today.AddDays(1) & "#"
DataTables("商务发货单").load

然后报错了

错误所在事件:商务发货单,CurrentChanged
详细错误信息:
未将对象引用设置到对象的实例。

商务发货单,CurrentChanged代码如下:
If DataTables("商务发货明细单").Find("发货单号 = \'" & e.Table.Current("发货单号") & "\'") Is Nothing Then
    DataTables("商务发货明细单").AppendLoad("发货单号 = \'" & e.Table.Current("发货单号") & "\'")
End If

--  作者:大红袍
--  发布时间:2015/12/22 15:41:00
--  

应该这样写吧?

 

DataTables("商务发货单").LoadFilter="配货状态 = False And 配货完成时间 >= #" & Date.Today & "# and 配货完成时间 < #" & Date.Today.AddDays(1) & "#"
DataTables("商务发货单").load

--  作者:大红袍
--  发布时间:2015/12/22 15:45:00
--  

currentChanged事件也要改一改

 

If e.Table.Current is Nothing Then Return

If DataTables("商务发货明细单").Find("发货单号 = \'" & e.Table.Current("发货单号") & "\'") Is Nothing Then
    DataTables("商务发货明细单").AppendLoad("发货单号 = \'" & e i.Table.Current("发货单号") & "\'")
End If

--  作者:huhu
--  发布时间:2015/12/22 15:47:00
--  
一样,同样报这个错。
商务发货单和商务发货明细单是通过发货单号建立的关联

--  作者:大红袍
--  发布时间:2015/12/22 16:04:00
--  
尽量不要在currentChanged事件写load代码,写到click事件吧。
--  作者:huhu
--  发布时间:2015/12/22 16:25:00
--  
ok,已搞定。