这种直接在代码中插入正确的名称
Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
Dim t As Table = e.Form.controls("Table1").Table
If dlg.ShowDialog = DialogResult.OK AndAlso t.Current IsNot Nothing Then
Dim pth As String = "E:\新建文件夹\"
Dim name As String = t.Current("第二列") & t.Current("第三列") & ".jpg"
If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then
If dlg.FileName <> pth & name Then
FileSys.RenameFile(dlg.FileName,name)
End If
Else
FileSys.CopyFile(dlg.FileName, pth & name)
End If
piv.AddFile(name)
End If
加好友 
发短信
Post By：2018/8/24 21:57:00 [显示全部帖子]
