主题：清空订单明细表

专家，你好。

 

现在有一个问题就是，清空所有订单的明细表，并想重新导入一张excel表。

 

 

制作了一个按钮click事件。

 

 

 

DataTables("采购订单执行").datarows.clear
DataTables("采购订单执行").Save

 

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "Excel文件|*.xls;*.xlsx"

If dlg.ShowDialog = DialogResult.OK Then
    For Each file As String In dlg.FileNames
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)

        Dim i As Integer = 5
        Do While (sheet(i,1).Text)<>""
            Dim dr As Row = Tables("采购订单执行").AddNew
            dr("采购组织") = sheet(i,0).Text
            dr("订单编号") = sheet(i,1).Text
            dr("供应商") = sheet(i,3).Text
            dr("采购部门") = sheet(i,5).Text
            dr("订单日期") = sheet(i,6).Text
            dr("行号") = sheet(i,7).Text
            dr("物料编码") = sheet(i,10).Text
            dr("物料名称") = sheet(i,11).Text

            dr("客户") = sheet(i,35).Text
            i = i + 1
        Loop
       
    Next
End If

 

 

发现执行语句读入满，保存更慢。请问有什么其他方法更快读入，保存到该数据库？

谢谢，专家。

 

测试更新了"采购组织","主数量","物料编码"这几个字段。

 

 

Dim strlist As  List(Of String)  = Functions.Execute("sql提取函数",Tables("采购订单执行"),"采购组织","物料编码","主数量",1)

If strlist.count = 0 Then Return  Nothing

Dim sql As String
Dim cmd As New SQLCommand
cmd.C
Dim Count As Integer = 0

For Each s As String In strlist
    cmd.CommandText = s
    Count += cmd.ExecuteNonQuery()
    Output.show(s)
Next

Tables(""采购订单执行"").DataTable.BaseTable.AcceptChanges()   '提交修改
Tables(""采购订单执行"").DataTable.Load             '刷新表
Output.show("影响了" & Count & "行")、

 

 

 

错误代码：cmd.c

 

 

在链接里，下载后，也打不开

数据保存时的Sql语句合成函数.Table

 

 

 

sqlserver。

我就是用那个例子，下载之后，   数据保存时的Sql语句合成函数.Table    这个文件打不开。

 

 Functions.Execute

这个自定义函数，不会。例子看得不是特别懂。

我这个是开发版啊。要卸载这个才能安装呢？

 

能否讲解一下，Functions.Execute  这个函数？