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


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

主题：[求助]统计最大的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


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：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


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

看不出来，上传实例说明

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询