老师好，下面是添加图片的按钮，我把图片保存在指定的文件夹中时他在文件夹以外也复制了一个同样的图片。
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("BBB1")
pic.Image = GetImage(dlg.FileName)
FileSys.CopyFile(dlg.FileName, "H:\图片管理\Attachments\图片\抄表图片\" & FileSys.GetName(dlg.fileName),True)
Tables("水电气费用记录").Current("总表名称") = FileSys.GetName(dlg.fileName)
End If
加好友 
发短信
Post By：2024/11/24 17:48:00 [只看该作者]
