Dim Cols1() As String = {"入库日期","客户代码","客户名称","定单号码","品名","件数","数量","单价","长","宽","高","毛重"}
Dim Cols2() As String = {"入库日期","客户代码","客户名称","定单号码","品名","件数","数量","单价","长","宽","高","毛重"}
For Each dr1 As DataRow In DataTables("入库明细").Select("[选择] = true")
Dim dr2 As DataRow = DataTables("出库明细").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
用的是局域网的SQL数据库,大约240行数据,项目刚开始还行,现在运行起来居然需要18分钟左右,不知道问题出在哪里
[此贴子已经被作者于2019/12/12 23:51:03编辑过]