Dim v As String = Tables("商品表").Current("款号")
Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
Dim pth As String = "\\Dianshang\电商共享夹\ERP系统专用\图片\"
Dim ext As String = FileSys.GetName(dlg.FileName).Split(".")(1)
Dim filename As String = pth & v & "." & ext
If FileSys.FileExists(filename) = False Then
FileSys.CopyFile(dlg.FileName, filename)
End If
piv.AddFile(filename)
End If
加好友 
发短信
Post By：2016/12/19 20:11:00 [显示全部帖子]
