[求助]提示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then
    MessageBox.Show("请先指定存储路径!","提醒")
    Return
Else
    Dim dlg As new OpenFileDialog
    If dlg.ShowDialog = DialogResult.OK Then
        If Tables("文件管理").Current("文件") > "" Then
            dim Result = MessageBox.Show("是否删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then
                If FileSys.FileExists(Tables("文件管理").Current("文件")) Then
                    FileSys.DeleteFile(Tables("文件管理").Current("文件"), 2, 2)
                End If
                Dim i As Integer = dlg.FileName.LastIndexOf("\")
                Dim wjm As String = dlg.FileName.SubString(i+1)
                Tables("文件管理").Current("文件") = wjm
                e.Form.Controls("文件名").text = wjm
                FileSys.CopyFile(dlg.FileName,e.Form.Controls("路径").text & "\" & wjm,True)
                Functions.Execute("文件管理") '义函数名
            Else
                msgbox("请新增行输入")
            End If
        End If
    End If
End If

以下是引用有点甜在2017/10/16 15:20:00的发言：
If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then
    MessageBox.Show("请先指定存储路径!","提醒")
    Return
Else
    Dim dlg As new OpenFileDialog
    If dlg.ShowDialog = DialogResult.OK Then
        If Tables("文件管理").Current("文件") > "" Then
            dim Result = MessageBox.Show("是否删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then
                If FileSys.FileExists(Tables("文件管理").Current("文件")) Then
                    FileSys.DeleteFile(Tables("文件管理").Current("文件"), 2, 2)
                End If
                Dim i As Integer = dlg.FileName.LastIndexOf("\")
                Dim wjm As String = dlg.FileName.SubString(i+1)
                Tables("文件管理").Current("文件") = wjm
                e.Form.Controls("文件名").text = wjm
                FileSys.CopyFile(dlg.FileName,e.Form.Controls("路径").text & "\" & wjm,True)
                Functions.Execute("文件管理") '义函数名
            Else
                msgbox("请新增行输入")
            End If
        End If
    End If
End If

老师，上面代码不能复制文件不能把文件名称赋值给文件列

[此贴子已经被作者于2017/10/16 19:10:28编辑过]

代码测试没有问题，上传实例说明

老师好，点击文件管理打开文件上传的按钮。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:文件上传.rar

If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then
    MessageBox.Show("请先指定存储路径!","提醒")
    Return
Else
    Dim dlg As new OpenFileDialog
    If dlg.ShowDialog = DialogResult.OK Then
        If Tables("文件管理").Current("文件") > "" Then
            Dim Result = MessageBox.Show("是否删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then
                If FileSys.FileExists(e.Form.Controls("路径").text & "\" & Tables("文件管理").Current("文件")) Then
                    FileSys.DeleteFile(e.Form.Controls("路径").text & "\" & Tables("文件管理").Current("文件"), 2, 2)
                End If
            Else
                msgbox("请新增行输入")
                Return
            End If
        End If
        Dim i As Integer = dlg.FileName.LastIndexOf("\")
        Dim wjm As String = dlg.FileName.SubString(i+1)
        Tables("文件管理").Current("文件") = wjm
        e.Form.Controls("文件名").text = wjm
        FileSys.CopyFile(dlg.FileName,e.Form.Controls("路径").text & "\" & wjm,True)
        Functions.Execute("文件管理") '义函数名
    End If
End If

[此贴子已经被作者于2017/10/17 10:02:45编辑过]

主题：[求助]提示