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

 

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

 

 

狐爸我初中毕业。做这个东东全部靠抄的。还有就是自己慢慢试。还是95年毕业的。全部都忘了。这个我自己的公司用的。

其它地方麻烦狐爸给看看

这个代码好像还是不行。同步一下就报错误。