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

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

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

有点蓝

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

加好友

发短信

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

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

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

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

有点蓝

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

加好友

发短信

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

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

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

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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+多表关联

有点蓝

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

加好友

发短信

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

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

没看懂，修改什么？

有点蓝

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

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：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.来料日期"

有点蓝

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

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：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.来料日期"

有点蓝

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

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：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编辑过]

有点蓝

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

加好友

发短信

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

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

dim dt2 as DataTable

dim nr as datarow

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()

if dt2 is nothing then

dt2 = dt

else

for each dr as datarow in dt.datarows

nr = dt2.addnew

for each dc as datacol in dt.datacols

nr(dc.name) = dr(dc.name)

end if

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