我在一个"obas_part1"表的AfterLoad事件中写有如下代码：

DataTables("obas_part1").DataRows.Count > 0 Then
    Dim ids As String
    For Each dr As DataRow In DataTables("obas_part1").DataRows
        ids = ids & ",\'" & dr("part_no") & "\'"
    Next
    ids = ids.Trim(",")   
    Dim s As String = "{obas_part1}.[part_no] In (" & ids & ")"
    DataTables("半成品查询表").LoadFilter = s
    DataTables("半成品查询表").Load()
End If

现在"obas_part1"表当加载行约9000多行时会提示如下错误信息，请问是什么问题？应该如何做呢？

.NET Framework 版本：2.0.50727.3655If
Foxtable 版本：2014.3.8.1
错误所在事件：加载[半成品查询表]失败!
详细错误信息：
内部查询处理器错误: 在查询优化过程中，查询处理器用尽了堆栈空间。

既然你的代码写在afterload事件里，那完全可以这样写代码吧？

Dim filter As String = DataTables("obas_part1").LoadFilter

谢谢你的方法，不过经过测试，你的这个方法还是一样的错误提示！

我现在用以下的代码，就没出错提示，那是不是说明如果 ids 超过来String字符串类的最大长度，才会提示出错，从我的测试来看一次加载9000多行数据是可行的，问题是我想知道是不是ids变量超过来String字符串类的最大长度，还是LoadFilter不能太长（最多为多少？）那String字符串类的最大长度是多少？（

但说明里不是说：

）有没一个更科学的判断办法？

Select Case DataTables("obas_part1").DataRows.Count
    Case 0 To 5000
        Dim ids As String
        For Each dr As DataRow In DataTables("obas_part1").DataRows
            ids = ids & ",\'" & dr("part_no") & "\'"
        Next
        ids = ids.Trim(",")
        Dim s As String = "{obas_part1}.[part_no] In (" & ids & ")"
        DataTables("半成品查询表").LoadFilter = s
        DataTables("半成品查询表").Load()
    Case > 5000
        DataTables("半成品查询表").LoadFilter = "{obas_part}.item_no Like \'2%\'"
        DataTables("半成品查询表").Load()    
End Select

分页加载如何写呢？因为我是两个表的加载，先加载的为子表，后加载的为父表，就是说父表是用户看不见的，用户只是看到子表，而了表的一些字段是用表达式的，表达式是引用父表的数据，所以当用户需要查子表时，他会根据我给的加载树，选择加载子表的数据，当加载完子表数据时，再去由程序根据条件加载父表的数据。

这是加载树窗口

AfterLoad代码：

Dim cmd As New SQLCommand
    cmd.C
    Dim dt As DataTable
       cmd.CommandText = "Select Distinct  {obas_part1}.[part_type],[part_name],[type_name] From ({obas_part1} Inner JOIN {obas_part} ON {obas_part}.[part_no] = {obas_part1}. [part_no]) Inner JOIN {obas_part_type} ON {obas_part_type}.[type_no] = {obas_part1}.[part_type] Where {obas_part1}.[part_type] Like \'2%\' Order By  {obas_part1}.[part_type]"
    dt = cmd.ExecuteReader()
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
       trv.BuildTree(dt,"type_name|part_name","","type_name")
    trv.Nodes.Insert("加载所有数据",0)

这是加载树的

AfterCheckNode 代码：

这里有自己设计分页加载树的说明：

http://www.foxtable.com/help/topics/2692.htm

参考着调整一下你的代码即可。

还有，不想分页的话，换个方法加载子表数据：

http://www.foxtable.com/help/topics/2894.htm