主题：根据现在有主表明细来加载子表明细

  For Each dr As DataRow In DataTables("产品").DataRows
        ids = ids & "," & dr("产品编号")
    Next

上面这段与下面的代码，结果有什么区别

  For i As Integer = 0 To s.Rows.count - 1
          ids = ids & "," & .Rows(i)("产品编号")
  Next

都是一样循环产品表每行

数据库改了SQL，下面的代码失效了

是哪里出问题，没有反应的

If DataTables("应收").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("已审销售").LoadFilter = "MB005 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("应收").DataRows
        ids = ids & ",'" & dr("立帐编码") & "'"
    Next
    ids = ids.Trim(",")
    DataTables("已审销售").LoadFilter = "MB005 In (" & ids & ")"
End If
DataTables("已审销售").Load()