主题：这段代码还有优化的空间么?

For Each File As String In FileSys.GetFiles("C:\图片\")
 Dim f As Io.FileInfo =  FileSys.GetFileInfo(File)
  Dim r As Row = Tables("商品").AddNew
    r("ppp") = f.name
  
 Dim d As String = Tables("商品").Current("bh1")       
 Dim s As String = Tables("商品").Current("cn_name")       
    Dim img1 As image = getImage(file)
    Dim bmp1 As new bitmap(img1, 150, 150 * (img1.height / img1.width))
    bmp1.save("f:\as2\" & s & "p.jpeg")
    bmp1.Dispose

      
FileSys.CopyFile(file, "f:\as1\" & s & "s.jpeg",True )
FileSys.CopyFile(file, "f:\as\" & s & ".jpeg",True )
FileSys.CopyFile(file, "f:\qrcord\taobao\" & s & ".tbi",True )

Next

 

 

这段代码还有优化的空间么?   是一个按钮的代码 ,每次都要处理 1500以上个数据(倒入的数据) 所以程序会经常 灰屏或者关机

淘宝啊。试试把tables绘制事件先暂停，循环完再绘制。 bmp1.save("f:\as2\" & s & "p.jpeg")，这句应该比较浪费时间。

2楼说的有道理 参考帮助 http://www.foxtable.com/help/topics/0401.htm

同时，不要用一个文件夹保存所有的图片，一个文件夹保存每次1500张图片，是恐怖的，如果有几万张，你那个文件夹打开都会很慢。

 

建议再分文件夹，比如按日期。

非常感谢文件夹建议,已经参考了,

With  DataTables("商品")
     .StopRedraw
     For Each File As String In FileSys.GetFiles("C:\图片\")
     Dim f As Io.FileInfo =  FileSys.GetFileInfo(File)
       Dim r As Row = Tables("商品").AddNew
         r("ppp") = f.name
           Next
     .ResumeRedraw
 End  With

Dim d As String = Tables("商品").Current("bh1")       
 Dim s As String = Tables("商品").Current("cn_name")       
    Dim img1 As image = getImage(file)
    Dim bmp1 As new bitmap(img1, 150, 150 * (img1.height / img1.width))
    bmp1.save("f:\as2\" & s & "p.jpeg")
    bmp1.Dispose

      
FileSys.CopyFile(file, "f:\as1\" & s & "s.jpeg",True )
FileSys.CopyFile(file, "f:\as\" & s & ".jpeg",True )
FileSys.CopyFile(file, "f:\qrcord\taobao\" & s & ".tbi",True )

 

可以理解为上门的代码么 ? 还是其他的

With  DataTables("商品")
    .StopRedraw
    For Each File As String In FileSys.GetFiles("C:\图片\")
        Dim f As Io.FileInfo =  FileSys.GetFileInfo(File)
        Dim r As Row = Tables("商品").AddNew
        Dim d As String = r("bh1")
        Dim s As String = r("cn_name")
        Dim img1 As image = getImage(file)
        Dim bmp1 As new bitmap(img1, 150, 150 * (img1.height / img1.width))
        bmp1.save("f:\as2\" & s & "p.jpeg")
        bmp1.Dispose
       
       
        FileSys.CopyFile(file, "f:\as1\" & s & "s.jpeg",True )
        FileSys.CopyFile(file, "f:\as\" & s & ".jpeg",True )
        FileSys.CopyFile(file, "f:\qrcord\taobao\" & s & ".tbi",True )
    Next
    .ResumeRedraw
End  With

 

 

非常感谢