从后台加载数据时，如何跳过已加载数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 从后台加载数据时，如何跳过已加载数据

共有2956人关注过本帖树形打印复制链接主题：从后台加载数据时，如何跳过已加载数据

lake163

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

加好友

发短信

等级：童狐帖子：276 积分：2971 威望：0 精华：0 注册：2010/9/20 11:21:00

从后台加载数据时，如何跳过已加载数据 发帖心情

Post By：2016/8/22 23:45:00 [只看该作者]

前提：

１、外部数据源中的表，初始不加载任何数据，使用过程中，根据加载条件加载相关数据。

　２、不同加载条件加载的行是有大量交叉的。

3、每次加载时，都使用LOAD方法，效率很低（因为有的条件对应的行很多）；

　　　而使用AppendLoad方法，又有部分符合条件的数据已加载，不满足AppendLoad使用要求。

希望：

每次加载时，保留已经加载的数据（这些数据有的符合新加载条件，有的不在新加载条件范围内)，只加载之前没有加载的数据，请教如何办？

　（如果采取将后台所有符合条件的行，通过主键与已经加载的行比较后，再确定是否AppendLoad，想必效率也很慢）

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/23 8:45:00 [只看该作者]

那就只有在加载条件中做文章了。在加载条件中排除已经加载的数据

lake163

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

加好友

发短信

等级：童狐帖子：276 积分：2971 威望：0 精华：0 注册：2010/9/20 11:21:00

Post By：2016/8/23 19:34:00 [只看该作者]

想先采取逐个比较的方法，如果运行速度还可以，就采用这个办法

Dim ryid1,ryid2 As List(Of String)

ryid1 = DataTables("ry").SQLGetValues("id",filter) '后台筛选后的行取ID值，因为ID都不重复，使用主键也可以

ryid2 = DataTables("ry").GetValues("id",filter) '前台筛选后的行，前台行也可不作筛选，因为是拿后台的行与前台比较

For Each ryid As String In ryid1 '后台的每一行 ID

If ryid2.Contains(ryid)= False Then '如果前台不存在

DataTables("ry").AppendLoad( "[id] = " & ryid , False) '加载

End If

其中：

DataTables("ry").AppendLoad( "[id] = " & ryid , False) '加载

提示出错，请问是什么原因啊？

wjl-se

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

加好友

发短信

等级：三尾狐帖子：762 积分：6302 威望：0 精华：0 注册：2011/12/1 14:47:00

Post By：2016/8/23 20:58:00 [只看该作者]

差不多应该是这样:

Dim ryid1,ryid2 As List(Of String)
Dim ids As String
ryid1 = DataTables("ry").SQLGetValues("id",filter) '后台筛选后的行取ID值,因为ID都不重复,使用主键也可以
ryid2 = DataTables("ry").GetValues("id",filter) '前台筛选后的行 ,前台行也可不作筛选,因为是拿后台的行与前台比较

For Each ryid As String In ryid1                      '后台的每一行 ID
    If ryid2.Contains(ryid)= False Then             '如果前台不存在
        ids = ids & ",'" & ryid & "'"
    End If
Next
ids= ids.Trim(",")
DataTables("ry").AppendLoad("[id] In (" & ids & ")", False)   '追载

[此贴子已经被作者于2016/8/23 21:06:54编辑过]