If MainTable.Name = "OrderList" Then

    If DataTables("OrderList").DataRows.Count > 0 Then \'如果订单表没有数据

        

        Dim ids As String

        For Each dr As DataRow In DataTables("OrderList").DataRows

            ids = ids & "," & "\'" & dr("OrderID") & "\'"

        Next

        ids= ids.Trim(",")

        \'MessageBox.show(ids)

        DataTables("BagRegList").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("NoteList").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("OrderColorSize").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("OrderFabricPlan").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("OrderMaterialPlan").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("OrderProductPlan").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("OrderProductProcess").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("RecordBagList").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("RecordList").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("CutRecord").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("CutRecordProcessWorker").LoadFilter = "OrderID In (" & ids & ")"

        DataTables("CutRecordFabricList").LoadFilter = "OrderID In (" & ids & ")"

        \'---------------------

        DataTables("BagRegList").Load()

        DataTables("NoteList").Load()

        DataTables("OrderColorSize").Load()

        DataTables("OrderFabricPlan").Load()

        DataTables("OrderMaterialPlan").Load()

        DataTables("OrderProductPlan").Load()

        DataTables("OrderProductProcess").Load()

        DataTables("RecordBagList").Load()

        DataTables("RecordList").Load()

        DataTables("CutRecord").Load()

        DataTables("CutRecordProcessWorker").Load()

        DataTables("CutRecordFabricList").Load()

        DataTables("OrderStatus").Load()

        DataTables("结算状态").Load()

    End If

End If

如何在上面代码里加个 在状态栏显示数据真实加载的进度条，不要滚动的， 就是0--100 显示真实进度的。

上面代码统计总值太麻烦。有什么好方法没？