主题：[讨论]关于动态加载的一段代码

If DataTables("订单").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("订单明细").LoadFilter = "订单ID Is Null" '不加载订单明细
Else
    For Each dr As DataRow In DataTables("订单").DataRows

       if ids="" then

          ids="'" & dr("订单ID") & "'" 

        else
         ids=ids & ",'" & dr("订单ID") & "'"

       end if
    Next
    ids="(" & ids & ")"
    DataTables("订单明细").LoadFilter = "订单ID In " & ids

    DataTables("订单明细").Load()
End If