- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 雷达消息 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154075)
-- 发布时间：2020/9/3 7:48:00
-- [求助] 雷达消息
你好，老师，
表A中有列 ：产品名称，逻辑列
后台数据库中有来料清单表 ： 来料日期， 产品名称，数量， 供应商。
如何在Foxbable 主窗口1中的右下角，出现个雷达消息窗口，只要表A中的逻辑列勾选中的产品，从勾选的时间点开始，后台数据库中来料清单表中，从勾选这个时间起有相同的产品进来，就在雷达窗口中显示来料日期和时间，产品名称，数量以及供应商。
谢谢。
-- 发布时间：2020/9/3 9:22:00
--
自己设计一个PopupForm类型的窗口。在表Adatacolchanged事件判断，如果勾选就打开这个窗口。
在这个窗口里开启计时器，定时到数据库查询数据并显示到窗口中
-- 发布时间：2020/9/3 19:19:00
--
老师，有点不懂，上传实例，谢谢。
-- 发布时间：2020/9/3 19:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:雷达.foxdb |
-- 发布时间：2020/9/3 20:40:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:雷达.zip |
-- 发布时间：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)
-- 发布时间：2020/9/5 8:33:00
--
-- 发布时间：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)
-- 发布时间：2020/9/5 9:30:00
--
没看懂，修改什么？
-- 发布时间：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)