Foxtable(狐表)用户栏目专家坐堂 → [求助]统计最大的10条数据


  共有1632人关注过本帖树形打印复制链接

主题:[求助]统计最大的10条数据

帅哥哟,离线,有人找我吗?
long9547
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:249 威望:0 精华:0 注册:2020/1/21 3:36:00
[求助]统计最大的10条数据  发帖心情 Post By:2020/2/18 9:56:00 [只看该作者]

图片点击可在新窗口打开查看求助,在表B中统计表A第一列中最大的10组数据,请给出完整代码,需要注意的是表A数据是动态的,每分钟都会自动更新,要保持实时都是最大的10组数据,跪谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/18 10:37:00 [只看该作者]

添加一个计划管理,间隔设置为1分钟,http://www.foxtable.com/webhelp/topics/0657.htm

添加以下代码
DataTables("表A").Save
Dim nr As DataRow
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT top 10 * From {表A} order by 第一列 desc"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
    nr = DataTables("表B").Find("第一列='" & dr("第一列") & "'")
    If nr Is Nothing Then
        nr = DataTables("表B").AddNew
        For Each dc As DataCol In DataTables("表B").DataCols
            nr(dc.Name)  = dr(dc.Name)
        Next
    End If
Next
Tables("表B").Sort = "第一列"
If Tables("表B").Rows.Count > 10 Then
    For i As Integer = Tables("表B").Rows.Count - 11 To 0 Step -1
        Tables("表B").Rows(i).delete
    Next
End If
DataTables("表B").Save

 回到顶部
帅哥哟,离线,有人找我吗?
long9547
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:249 威望:0 精华:0 注册:2020/1/21 3:36:00
非常感谢,可以实现了  发帖心情 Post By:2020/2/18 12:51:00 [只看该作者]

图片点击可在新窗口打开查看非常感谢,可以实现了 但是却不能插入行,还得请有点蓝再次出手,需要插入三四行用于计算

 回到顶部
帅哥哟,离线,有人找我吗?
long9547
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:249 威望:0 精华:0 注册:2020/1/21 3:36:00
之前我用这个也可以实现 但就是只提取的数据有点多,不知怎么截取10行  发帖心情 Post By:2020/2/18 13:08:00 [只看该作者]

非关联表之间的数据同步

http://www.foxtable.com/webhelp/index.htm?page=0657.htm

 回到顶部
帅哥哟,离线,有人找我吗?
long9547
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:249 威望:0 精华:0 注册:2020/1/21 3:36:00
删除Tables("表B").Sort = "第一列" OK了  发帖心情 Post By:2020/2/18 13:51:00 [只看该作者]

删除Tables("表B").Sort = "第一列"  OK了

 回到顶部
帅哥哟,离线,有人找我吗?
long9547
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:249 威望:0 精华:0 注册:2020/1/21 3:36:00
突然第二列内容不见了,帮看下什么原因  发帖心情 Post By:2020/2/19 0:22:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/19 9:17:00 [只看该作者]

看不出来,上传实例说明

 回到顶部