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

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

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

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中的逻辑列勾选中的产品，从勾选的时间点开始，后台数据库中来料清单表中，从勾选这个时间起有相同的产品进来，就在雷达窗口中显示来料日期和时间，产品名称，数量以及供应商。

谢谢。

susanhe

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

加好友

发短信

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

Post By：2020/9/3 19:19:00 [显示全部帖子]

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

susanhe

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

加好友

发短信

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

Post By：2020/9/3 19:20:00 [显示全部帖子]

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

susanhe

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

susanhe

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

susanhe

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

susanhe

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

加好友

发短信

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

Post By：2020/9/5 13:28:00 [显示全部帖子]

老师，不好意还有个问题，以上的表B就是下面的sql, 如保把下面的sql直接跟上面的连接起来，不用“表B”，谢谢。

Sel ect FNumber,FQty,FDate From ({POInStockEntry} Inner JOIN {t_ICItemCore} ON {t_ICItemCore}.[FItemID] = {POInStockEntry}.[FItemID]) Inner JOIN {POInStock} ON {POInStock}.[FInterID] = {POInStockEntry}.[FInterID]

susanhe

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

加好友

发短信

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

Post By：2020/9/5 14:39:00 [显示全部帖子]

谢谢老师

总算好了，但是要把这下面的结果如何填到窗口2_Table1中？

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "se ect b.* from (Se ect FNumber,FQty,FDate From ({POInStockEntry} Inner JOIN {t_ICItemCore} ON {t_ICItemCore}.[FItemID] = {POInStockEntry}.[FItemID]) Inner JOIN {POInStock} ON {POInStock}.[FInterID] = {POInStockEntry}.[FInterID]) As b inner join {物料需求} As a on a.PartNo = b.FNumber where a.Radar=True And a.RadarDate <= b.Fdate"

Dim dt As DataTable = cmd.ExecuteReader(True)

susanhe

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

加好友

发短信

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

Post By：2020/9/7 19:08:00 [显示全部帖子]

老师，即使用了For 和 Next , Tables("窗口2_Table1").datasource = dt 出来的结果也只有一笔。可以帮忙修改一下吗？谢谢。

For Each rrrr As DataRow In DataTables("data").Sel ect("[Radar] = true ")

Dim cmd As new SQLCommand

cmd.CommandText = "Se lect FNumber,FQty,FDate From ({POInStockEntry} Inner JOIN {t_ICItemCore} ON {t_ICItemCore}.[FItemID] = {POInStockEntry}.[FItemID]) Inner JOIN {POInStock} ON {POInStock}.[FInterID] = {POInStockEntry}.[FInterID] Where FNumber = '" & rrrr("PartNo") & "' and Fdate > = '" & rrrr("RadarDate") & "'"

cmd.Conn ecti

Dim dt As DataTable = cmd.ExecuteReader()

Tables("窗口2_Table1").datasource = dt

susanhe

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

加好友

发短信

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

Post By：2020/9/7 21:03:00 [显示全部帖子]

感谢，老师，出来的结果的栏位如何设定加宽？
图片点击可在新窗口打开查看

此主题相关图片如下：捕获.png

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：[求助] 雷达消息