以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮助 父表与子表同步加载 中的代码是否有误？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28814)
--  作者：xuezxz
--  发布时间：2013/2/19 17:49:00
--  帮助 父表与子表同步加载 中的代码是否有误？

原代码执行报错

If DataTables("订单").DataRows.Count = 0 Then \'如果订单表没有数据
    DataTables("订单明细").LoadFilter = "订单ID Is Null" \'不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("订单").DataRows
        ids = ids & "," & dr("订单ID")
    Next
    ids= ids.Trim(",")
    DataTables("订单明细").LoadFilter = "订单ID In (" & ids & ")"
End If
DataTables("订单明细").Load()

 

红字部分改后通过，是不是帮助上的代码错了？

If DataTables("订单").DataRows.Count = 0 Then \'如果订单表没有数据
    DataTables("订单明细").LoadFilter = "订单ID Is Null" \'不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("订单").DataRows
        ids = ids & "," & "\'" & dr("订单ID") & "\'"
    Next
    ids= ids.Trim(",")
    DataTables("订单明细").LoadFilter = "订单ID In (" & ids & ")"
End If
DataTables("订单明细").Load()

 
--  作者：lin_hailun
--  发布时间：2013/2/19 18:14:00
--  
 具体情况而定，如果你的订单ID是数值类型的话，就不需要单引号。

 如果是字符类型的话，就需要单引号。
--  作者：布莱克朱
--  发布时间：2013/2/19 19:12:00
--  
帮助是数值型的写法   
字符型的代码写法同 2   
老大,是否帮助需要说明下?
[此贴子已经被作者于2013-2-19 19:12:41编辑过]
--  作者：泡泡
--  发布时间：2013/3/13 14:47:00
--  

我今天花了一上午看这里，代码总是报错

原来是有这么个情况

希望官方在说明里做修订
--  作者：狐狸爸爸
--  发布时间：2013/3/13 14:54:00
--  
呵呵，其实帮助不止一个地方提到的，但是没有办法每次用in的时候，都说一下啊
--  作者：泡泡
--  发布时间：2013/3/13 14:57:00
--  

看这大段代码的人 多是想依葫芦画瓢的初学者吧

基本没能力辨识里面不周全的代码的