主题：[求助]把一个表的数据复制到另一个表，有数据的转换，效率很慢！

Dim st As Date = Date.Now

DataTables("库存尺码转换").DeleteFor("")

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

    Dim 尺码组 As String() = {"S1","S2","S3","S4","S5","S6","S7","S8","S9","S10","S11","S12","S13","S14"}

    For Each 尺码 As String In 尺码组

        If dr(尺码)<>0 Then '如果有库存

            Tables("尺码组").Filter="尺码类别='" & dr("尺码组") & "'"

            Dim add As Row

            add=Tables("库存尺码转换").AddNew()

            Dim tm As String=dr("货号") & dr("颜色编码") & Tables("尺码组").Current(尺码)

            add("条形码")=tm.Replace(" ","")

            add("数量")=dr(尺码)

        End If

    Next

Next

DataTables("库存尺码转换").Save

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

此主题相关图片如下：snap1.jpg

此主题相关图片如下：snap2.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试转换.rar