主题：求助 其它

            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

以上代码，不知那里出着问题，增加一个图片时提示：