添加一个计划管理，间隔设置为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
加好友 
发短信
Post By：2020/2/18 10:37:00 [显示全部帖子]
