- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 显示今天的订单 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139301)
-- 发布时间：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
--
录入时间是不是有时分秒？
-- 发布时间：2019/8/10 14:03:00
-- [求助]
没有录入时分
-- 发布时间：2019/8/10 14:06:00
--
那么代码没有问题，说明没有符合条件的数据
-- 发布时间：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
-- 发布时间：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("订单状态")="待提交"
是自动赋值的
-- 发布时间：2019/8/10 14:38:00
--
可以了，谢谢老师