Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请专家帮我看看这段代码有问题吗?


  共有1796人关注过本帖树形打印复制链接

主题：请专家帮我看看这段代码有问题吗?
帅哥哟，离线，有人找我吗？
audience68
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：324 积分：2547 威望：0 精华：0 注册：2012/5/19 22:40:00 		请专家帮我看看这段代码有问题吗?  发帖心情 Post By：2017/6/28 21:14:00 [只看该作者]

Dim cnt As Integer =  DataTables("监造统计").Select("[监造状态] in ('在监造','在监控') and 距离交货期的时间 <= 0").Count

If cnt > 0 Then

    Tables("监造统计").filter = "[监造状态] in ('在监造','在监控') and 距离交货期的时间 <= 0"

    messagebox.show("总共有" & cnt & "项物资已到或超过交货期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If


以上的代码运行后,Tables("监造统计").filter不起作用,但 messagebox.show能够显示准确的信息.我实在找不出问题在哪里?



谢谢专家了!
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/28 21:24:00 [只看该作者]

 你看到的是窗口表吧？

 

改一下

 

Dim cnt As Integer =  DataTables("监造统计").Select("[监造状态] in ('在监造','在监控') and 距离交货期的时间 <= 0").Count

If cnt > 0 Then

    e.Form.Controls("Table1").Table.filter = "[监造状态] in ('在监造','在监控') and 距离交货期的时间 <= 0"

    messagebox.show("总共有" & cnt & "项物资已到或超过交货期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If
 回到顶部
帅哥哟，离线，有人找我吗？
audience68
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：324 积分：2547 威望：0 精华：0 注册：2012/5/19 22:40:00 		  发帖心情 Post By：2017/6/28 21:40:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
audience68
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：324 积分：2547 威望：0 精华：0 注册：2012/5/19 22:40:00 		  发帖心情 Post By：2017/6/28 21:42:00 [只看该作者]

  e.Form.Controls("Table1").Table.filter = "[监造状态] in ('在监造','在监控') and 距离交货期的时间 <= 0"报错.
我的是2014版的foxtable
 回到顶部
帅哥哟，离线，有人找我吗？
audience68
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：324 积分：2547 威望：0 精华：0 注册：2012/5/19 22:40:00 		回复：（audience68）  e.Form.Controls("Table1...  发帖心情 Post By：2017/6/28 21:53:00 [只看该作者]

这是报错信息 
图片点击可在新窗口打开查看此主题相关图片如下：报错信息.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/28 22:03:00 [只看该作者]

 那改成

 

Forms("窗口1").Controls("Table1").Table.filter = "[监造状态] in ('在监造','在监控') and 距离交货期的时间 <= 0"
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询