主题：请狐爸帮忙优化一下

If DataTables("业务大表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("支出明细").LoadFilter = "关单号 Is Null" '不加载订单明细
Else
    Dim ids As String = ""
    For Each dr As DataRow In DataTables("业务大表").DataRows
        If dr.Isnull("关单号") = False Then
            ids = ids & ",'" & dr("关单号") & "'"
        End If
    Next
    ids= ids.Trim(",")
    If ids = "" Then
        Return
    End If
    DataTables("支出明细").LoadFilter = "关单号 In (" & ids & ")"
End If
DataTables("支出明细").Load()

建议你看看这一章的内容，找到错误发生的位置，就容易知道原因了：

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