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

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

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

有点蓝

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

加好友

发短信

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

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

直接把sql复制过去不就行了

cmd.CommandText = "sel ect b.* from {表B} as b inner join {表A} as a on a.产品名称 = b.产品名称 where a.勾选=true and a.日期 <= b.来料日期"

susanhe

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

有点蓝

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

加好友

发短信

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

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

放到括号里即可

cmd.CommandText = "sel ect b.* from (上面的sql) as b inner join {表A} as a on a.产品名称 = b.产品名称 where a.勾选=true and a.日期 <= b.来料日期"

susanhe

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

有点蓝

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

加好友

发短信

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

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

Dim dt As DataTable = cmd.ExecuteReader()
tables("窗口2_Table1").datasource = dt

http://www.foxtable.com/webhelp/topics/1909.htm

[此贴子已经被作者于2020/9/5 14:59:27编辑过]

susanhe

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