主题：父表与子表同步加载，报错

If DataTables("运维项目").DataRows.Count = 0 Then '如果订单表没有数据

    DataTables("运维费用明细").LoadFilter = "编号 Is Null" '不加载订单明细

Else

    Dim ids As String

    For Each dr As DataRow In DataTables("运维项目").DataRows

        ids = ids & "," & dr("_identify")

    Next

    ids= ids.Trim(",")

    DataTables("运维费用明细").LoadFilter = "编号 In (" & ids & ")"

    DataTables("运维费用明细").Load()

End If