老师:您好!
dl g.Fil ter = "图形 文件|*.bm p;*.jp g;*.gif;*.p ng"
dlg.M ultiS elect = True
If d lg.Sh ow Di alog = Dia logRes ult.OK Then
Fo r Ea c h file As String In dlg.FileNames
Tables("qrymyf.susrtrou").AddNew
Dim r A s Ro w = Tab les("表A.表B").Current
r("物料图") = r("物料编号") & ".jpg"
Di m bm pSrc As Ne w Bitmap(file)
Di m k A s Single = 800 / bmpSrc.width
Di m l As Integer = Format(bmpSrc.Height * k, "######")
Di m bmpDest As New Bitmap(800,l)
Di m g = Graphics.FromImage(bmpDest)
Di m rect Dest As New Sy stem.Drawi ng.Rect angle(0, 0, 800, l)
Di m rectS rc As New Syst em.Drawi ng.Rec tangle(0, 0, bm pSrc.Widt h, bm pSrc.Height)
g.Draw Image(bmpSrc, rectDest, rectSrc, Gr aphic sUnit. Pixel)
g.Dispose()
bm pDest.Save(“D:\” & r("物料图"))
N e x t
End If
以上代码,不知那里出着问题,增加一个图片时提示:
.NE T Fram ework 版本:2.0.50727.8789
Foxtable 版本:2018.10.9.1
错误所在事件:
详细错误信息:
标准表达式中数据类型不匹配。
请老师指教!!!
谢谢!!!
[此贴子已经被作者于2020/1/12 21:37:15编辑过]