主题：SQL外部数据源动态加载新问题

利用SQL作为外部数据源，为了有效提高项目的打开速度，在项目属性的BeforeLoadOuterTable设置如下代码来控制载入外部数据表，而不加载外部数据记录：

If e.DataTableName = "通讯往来" AndAlso e.User.Name = "开发者" Then    ’我还没有设置登录用户
e.SelectString = "Select * From [通讯往来] Where ID='0'"            ‘ID 为SQL表的关键字段
End If

然后在需要加载的时候，可以用按钮或是菜单的Chick事件来加载

DataTables("通讯往来").LoadFilter = "[ID] <> '0' ORDER BY ID DESC "   '通过ID来排序。
DataTables("通讯往来").Load() 
 
现在有一个新的问题，如果数据比较多，我只想加载100条记录，又该如何设置呢？

帮助上看到的 增加外部数据表 加载100条记录。

这样不行的。

直接在外部数据表中可以设置加载的行数

不行的，没有用的！

增加外部数据表

1、在管理项目功能区，单击下面的按钮：

2、出现外部数据表设置窗口：

3、首先选择数据源和数据表，然后设置加载的行数或百分比，以及加载那些列；在“过滤/排序”页，可以设置加载条件，以及排序方式；通常只需选择数据源和数据表即可。

4、单击“确定”按钮，输入数据表在Foxtable中显示的表名即可



在最多加载行数  选项也不行?

看来，你得给大家一个实例了～ 我不太熟悉外部表的，但论坛有人会～

只需改一个地方：

If e.DataTableName = "通讯往来" AndAlso e.User.Name = "开发者" Then    ’我还没有设置登录用户
e.SelectString = "Select Top 100 From [通讯往来] Where ID='0'"            ‘ID 为SQL表的关键字段
End If

不过这样每次都只能加载100了，不太灵活。

另一个思路是让用户输入ID范围，加载这个指定范围的记录，这样较为灵活，当然工作量也就多点。

贺老师,如果做在按钮中,来加载100行,下面的代码对吗?

Dim i As Integer
For i = 1 to 100
   DataTables("通讯往来").LoadFilter = "[ID] <> '0' ORDER BY ID DESC "   '通过ID来排序。
DataTables("通讯往来").DataRows(i).Load() 
Next

能否提供一些事例呢！