以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请狐爸帮忙优化一下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12543)
--  作者：张海兵
--  发布时间：2011/9/6 22:55:00
--  请狐爸帮忙优化一下

 

[此贴子已经被作者于2011-9-6 22:57:39编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/9/6 23:01:00
--  

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

 

 
--  作者：张海兵
--  发布时间：2011/9/6 23:06:00
--  狐爸我初中毕业。
狐爸我初中毕业。做这个东东全部靠抄的。还有就是自己慢慢试。还是95年毕业的。全部都忘了。这个我自己的公司用的。
[此贴子已经被作者于2011-9-6 23:10:32编辑过]
--  作者：张海兵
--  发布时间：2011/9/6 23:09:00
--  其它地方麻烦狐爸给看看
其它地方麻烦狐爸给看看
--  作者：张海兵
--  发布时间：2011/9/6 23:16:00
--  这个代码好像还是不行
这个代码好像还是不行。同步一下就报错误。