- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]统计最大的10条数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146170)
-- 发布时间：2020/2/18 9:56:00
-- [求助]统计最大的10条数据
求助，在表B中统计表A第一列中最大的10组数据，请给出完整代码，需要注意的是表A数据是动态的，每分钟都会自动更新，要保持实时都是最大的10组数据，跪谢| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.table |
-- 发布时间：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
-- 发布时间：2020/2/18 12:51:00
-- 非常感谢，可以实现了
非常感谢，可以实现了 但是却不能插入行，还得请有点蓝再次出手，需要插入三四行用于计算
-- 发布时间：2020/2/18 13:08:00
-- 之前我用这个也可以实现 但就是只提取的数据有点多，不知怎么截取10行
非关联表之间的数据同步
http://www.foxtable.com/webhelp/index.htm?page=0657.htm-- 发布时间：2020/2/18 13:51:00
-- 删除Tables("表B").Sort = "第一列" OK了
删除Tables("表B").Sort = "第一列" OK了
-- 发布时间：2020/2/19 0:22:00
-- 突然第二列内容不见了，帮看下什么原因
-- 发布时间：2020/2/19 9:17:00
--
看不出来，上传实例说明