主题：[求助]父表与子表同步加载，加载子表报错。

你的工单编号是字符型的吧?  如果是字符型，应该：

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("工单编号") & "'"
    Next
    ids= ids.Trim(",")
    DataTables("售出配件").LoadFilter = "工单编号 In (" & ids & ")"
End If
DataTables("售出配件").Load()