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

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

共有3610人关注过本帖树形打印复制链接主题：[求助] 雷达消息

susanhe

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

加好友

发短信

等级：小狐帖子：312 积分：2477 威望：0 精华：0 注册：2018/11/22 20:30:00

[求助] 雷达消息 发帖心情

Post By：2020/9/3 7:48:00 [只看该作者]

你好，老师，

表A中有列：产品名称，逻辑列

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

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

谢谢。

有点蓝

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

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/3 9:22:00 [只看该作者]

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

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

susanhe

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

加好友

发短信

等级：小狐帖子：312 积分：2477 威望：0 精华：0 注册：2018/11/22 20:30:00

Post By：2020/9/3 19:19:00 [只看该作者]

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

susanhe

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

加好友

发短信

等级：小狐帖子：312 积分：2477 威望：0 精华：0 注册：2018/11/22 20:30:00

Post By：2020/9/3 19:20:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:雷达.foxdb

有点蓝

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

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/3 20:40:00 [只看该作者]

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

susanhe

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

加好友

发短信

等级：小狐帖子：312 积分：2477 威望：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

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/5 8:33:00 [只看该作者]

https://www.baidu.com/baidu?word=sql+多表关联

susanhe

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

加好友

发短信

等级：小狐帖子：312 积分：2477 威望：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

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/5 9:30:00 [只看该作者]

没看懂，修改什么？

susanhe

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

加好友

发短信

等级：小狐帖子：312 积分：2477 威望：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 下一页

主题：[求助] 雷达消息