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

方法一：

下载信息 [文件大小：308.0 KB 下载次数：6]
点击浏览该文件:嵌入exe程序到自己的窗口.table

方法二：

http://www.foxtable.com/webhelp/scr/2713.htm

实例发上来测试。

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

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编辑过]

主题：[求助]提示