主题：[求助]导入大量数据引起系统卡顿，该如何解决？

不要重置列，改成一个按钮实现具体内容

For Each ary() As String In DataTables("产品供应商").GetValues("品名|供应商")
    Dim filter As String = "品名='" & ary(0) & "' And 供应商='" & ary(1) & "'"
    Dim sum As Double = DataTables("产品供应商").Compute("Sum(日均销量)",filter)
    If sum > 0 Then
        For Each dr1 As DataRow In DataTables("产品供应商").Select(filter)
            dr1("标准库存天数") = dr1("供应商起订量") / sum
        Next
    End If
Next

可以，参考

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then

    DataTables("订单").DataRows.Clear
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "订单$" '指定要合并的表
    mg.DataTableName = "订单" '指定接收数据的表
    mg.Merge() '开始合并
End If