.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2014.10.23.1
错误所在事件：菜单,导入图片,Click
详细错误信息：
GDI+ 中发生一般性错误。
、
代码如下
MainTable = Tables("商品")
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 img As image = getImage(file)
Dim bmp As new bitmap(img, 180, 180 * (img.height / img.width))
bmp.save("f:\web\upfile1\as1\" & s & "s.jpeg")
bmp.Dispose
FileSys.CopyFile(file, "f:\web\upfile1\as\" & s & ".jpeg",True )
Next
加好友 
发短信
Post By：2015/3/4 12:26:00 [只看该作者]
