老师,我在关联表中的插入了图片后总是打开一张图片。
If Tables("入库.入库管理").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("入库.入库管理").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
dr.SQLInsertFile("商品_产品图标",dlg.FileName) '插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(dlg.FileName)
FileSys.CopyFile(dlg.FileName, "H:\入库管理\Attachments\入库管理数据图片\" & FileSys.GetName(dlg.fileName),True)
End If