主题：求助，查询处理器用尽了堆栈空间！

有如下代码，在进行查询时会出现查询处理器用尽了堆栈空间的问题，请问应如何做才可以？

Dim t As Table = Tables("销售订单查询")

If t.Rows.Count > 0 Then
    Dim ids As String
    For Each r As Row In t.Rows
       
        ids = ids & ",'" & r("sheet_lot") & "'"
    Next
    ids= ids.Trim(",")
   
   
    DataTables("装箱表查询").LoadFilter = "sheet_lot In (" & ids & ")"
    DataTables("装箱表查询").Load()
   
Else
   
    Messagebox.Show("订单表中不存在相关的查询数据!,如有疑问,请与管理员联系","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
End If