表达式错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式错误

共有1920人关注过本帖树形打印复制链接主题：表达式错误

taifeng110

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：93 积分：734 威望：0 精华：0 注册：2017/9/27 23:52:00

Post By：2018/11/28 20:37:00 [只看该作者]

还是不可以，晕死了，之前那段代码是可以的

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/28 20:59:00 [只看该作者]

以下是引用taifeng110在2018/11/28 20:37:00的发言：
还是不可以，晕死了，之前那段代码是可以的

1、你把数据加载出来了没有？是不是没数据？

2、做个简单的实例发上来测试。

taifeng110

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：93 积分：734 威望：0 精华：0 注册：2017/9/27 23:52:00

Post By：2018/11/28 21:09:00 [只看该作者]

改了bd1.Filter = "[单据日期] >= '" & td.value & "' and [单据日期] < '" & td.value.adddays(1) & "'"也不可以

我把系统日期改成2018-11-27后，再选择2018-11-28，报表出不来了，是空白的，还是不行

taifeng110

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：93 积分：734 威望：0 精华：0 注册：2017/9/27 23:52:00

Post By：2018/11/28 21:16:00 [只看该作者]

我把这个代码取消后，可以加载出来数据的bd1.Filter = "[单据日期] = '" & td.value & "'"

有点甜

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/28 21:41:00 [只看该作者]

做个对应例子发上来测试，代码没问题。

taifeng110

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：93 积分：734 威望：0 精华：0 注册：2017/9/27 23:52:00

Post By：2018/11/28 21:50:00 [只看该作者]

我做了一个实例，是外部数据库的，把窗体复制到实例里，功能是正常的

晕了

实例如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.zip

[此贴子已经被作者于2018/11/28 22:03:04编辑过]

有点甜

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/28 22:13:00 [只看该作者]

其余代码，单独测试这段代码

Dim bd1 As New GroupTableBuilder("统计表11",DataTables("销售订测试"))
Dim td As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
bd1.Filter = "[单据日期] = #" & td.value & "#"
bd1.Groups.AddDef("业务员") '根据型号分组
bd1.Groups.AddDef("客户名称") '根据型号分组
bd1.Groups.AddDef("产品分类") '根据型号分组
bd1.Groups.AddDef("物料名称") '根据型号分组
bd1.Totals.AddDef("数量") '对数量进行统计
Tables("销售日报表_Table1").DataSource = bd1.BuildDataSource()

msgbox(DataTables("销售订测试").Select(bd1.filter).count)