主题：帮助 父表与子表同步加载 中的代码是否有误？

原代码执行报错

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()

 

 具体情况而定，如果你的订单ID是数值类型的话，就不需要单引号。

 如果是字符类型的话，就需要单引号。

帮助是数值型的写法   

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

原来是有这么个情况

希望官方在说明里做修订

呵呵，其实帮助不止一个地方提到的，但是没有办法每次用in的时候，都说一下啊

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

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