Foxtable(狐表)用户栏目专家坐堂 → [求助] 雷达消息


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

主题:[求助] 雷达消息

美女呀,离线,留言给我吧!
susanhe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:309 积分:2439 威望:0 精华:0 注册:2018/11/22 20:30:00
[求助] 雷达消息  发帖心情 Post By:2020/9/3 7:48:00 [只看该作者]

你好,老师,


表A中有列 :产品名称,逻辑列

后台数据库中有来料清单表 : 来料日期, 产品名称,数量, 供应商。


如何在Foxbable 主窗口1中的右下角,出现个雷达消息窗口,只要表A中的逻辑列勾选中的产品,从勾选的时间点开始,后台数据库中来料清单表中,从勾选这个时间起有相同的产品进来,就在雷达窗口中显示来料日期和时间,产品名称,数量以及供应商。


谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57342 积分:290623 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/3 9:22:00 [只看该作者]

自己设计一个PopupForm类型的窗口。在表Adatacolchanged事件判断,如果勾选就打开这个窗口。

在这个窗口里开启计时器,定时到数据库查询数据并显示到窗口中

 回到顶部
美女呀,离线,留言给我吧!
susanhe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:309 积分:2439 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2020/9/3 19:19:00 [只看该作者]

老师,有点不懂,上传实例,谢谢。

 回到顶部
美女呀,离线,留言给我吧!
susanhe
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:309 积分:2439 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2020/9/3 19:20:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:雷达.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57342 积分:290623 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/3 20:40:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:雷达.zip


 回到顶部
美女呀,离线,留言给我吧!
susanhe
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:309 积分:2439 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2020/9/4 21:59:00 [只看该作者]

谢谢老师,如果再增加个表C, 这也是来料清单,跟表B一样的,如何增加到下面,谢谢了。

Tables("窗口2_Table1").Fill("sel ect b.* from {表B} as b inner join {表A} as a on a.产品名称 = b.产品名称 where a.勾选=true and a.日期 <= b.来料日期",True)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57342 积分:290623 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/5 8:33:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
susanhe
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:309 积分:2439 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2020/9/5 9:14:00 [只看该作者]

老师, 把这个用如个语句直接从后台表中读取,如何修改 ?文、谢谢。

Dim cmd As new SQLCommand
cmd.ConnectionName = "sql"
cmd.CommandText = "Select * From {G_API_TradeList} Where 
Dim dt As DataTable = cmd.ExecuteReader(True)



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:57342 积分:290623 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/5 9:30:00 [只看该作者]

没看懂,修改什么?

 回到顶部
美女呀,离线,留言给我吧!
susanhe
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:309 积分:2439 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2020/9/5 10:09:00 [只看该作者]

老师,以下是直接从Foxtable中的表B取得, 但如这个在后台SQL中,要如何直接取值,谢谢。


Tables("窗口2_Table1").Fill("sel ect b.* from {表B} as b inner join {表A} as a on a.产品名称 = b.产品名称 where a.勾选=true and a.日期 <= b.来料日期",True)

 回到顶部
总数 21 1 2 3 下一页