以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询条件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153113)
--  作者：朱女士
--  发布时间：2020/7/31 13:48:00
--  查询条件
老师您好！
   我有一个查询，想加上“发货日期为空”的条件，且想在窗口的table中显示，要导出到：excel .怎么实现？谢谢！我的代码：
 Dim nms() As String={"DateTimebegin","DateTimeend"}
Dim sps() As String={"#","#"}
Dim bjf() As String={" >= "," <= "}
Dim fds() As String={"接单日期","接单日期"} 
Dim filter As String

For i As Integer=0 To nms.length-1
If e.Form.Controls(nms(i)).value IsNot Nothing Then 
 If filter>"" Then
 filter=filter &  " and  "
 End If
 filter=filter  &  fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
End If
Next
Tables("ddpsb").filter=filter
--  作者：有点蓝
--  发布时间：2020/7/31 13:58:00
--  
Dim filter As String
改为
Dim filter As String = "发货日期 is null "