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

老师好

此主题相关图片如下：图像 2.png

以下是引用江南小镇在2017/10/14 12:41:00的发言：

老师好

此主题相关图片如下：图像 2.png

此主题相关图片如下：图像 9.png

老师，重启动项目好了。

[此贴子已经被作者于2017/10/14 21:17:54编辑过]

此主题相关图片如下：图像 3.png

老师好，用窗口按钮打开项目以外的文件时被打开的文件总是夹在项目和窗口的中间，要想查看必须关掉窗口才能浏览，麻烦的不得了，

[此贴子已经被作者于2017/10/15 11:25:16编辑过]

此主题相关图片如下：图像 4.png

老师，我想在下面代码中加上验证代码。如果文件列的单元格已经有字段了就弹出对话框（有文件，要删除吗）点击是就删除原文件，如果否就返回并提示请在新增行中输入。

If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then

MessageBox.Show("请先指定存储路径!","提醒")

Return

Else

Dim dlg As new OpenFileDialog

If dlg.ShowDialog = DialogResult.OK Then

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

以下是引用有点甜在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

主题：[求助]提示