以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  显示今天的订单  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139301)

--  作者:xxm653232
--  发布时间:2019/8/10 11:09:00
--  显示今天的订单
Dim cc As WinForm.CheckBox = e.Sender
If cc.Checked = True
    Tables("订单主表").Filter=Tables("订单主表").Filter="[订单状态]<>\'已完成\' and [订单状态]<>\'已作废\' and [录入时间]=\'" & Date.Today & "\'"
Else
    Tables("订单主表").Filter="[订单状态]<>\'已完成\' and [订单状态]<>\'已作废\'"
End If
请问老师执行上面的代码结果显示什么都没有,蓝底的字哪里出错了。

--  作者:有点蓝
--  发布时间:2019/8/10 11:29:00
--  
录入时间是不是有时分秒?
--  作者:xxm653232
--  发布时间:2019/8/10 14:03:00
--  [求助]
没有录入时分
--  作者:有点蓝
--  发布时间:2019/8/10 14:06:00
--  
那么代码没有问题,说明没有符合条件的数据
--  作者:xxm653232
--  发布时间:2019/8/10 14:12:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:tim截图20190810140116.png
图片点击可在新窗口打开查看
记录有很多条的

--  作者:有点蓝
--  发布时间:2019/8/10 14:15:00
--  
直接使用这个条件有没有问题?Tables("订单主表").Filter="[订单状态]<>\'已完成\' and [订单状态]<>\'已作废\'"

下单日期是手选的还是使用代码赋值的?

把格式改为datelongtime看看:http://www.foxtable.com/webhelp/topics/0044.htm

--  作者:xxm653232
--  发布时间:2019/8/10 14:31:00
--  
If e.DataTable.SourceType=2 Then
    Dim cmd As New SQLCommand
    Dim dt As Date
    cmd.C
    cmd.CommandText = "Select GetDate()"
    dt = cmd.ExecuteScalar()
    dt = dt.Date
    e.DataRow("录入时间")=dt
Else
    e.DataRow("录入时间")=Date.today
End If
e.DataRow("业务员编号")=user.name
e.DataRow("订单状态")="待提交"


是自动赋值的

--  作者:xxm653232
--  发布时间:2019/8/10 14:38:00
--  
可以了,谢谢老师