以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  附件承接  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139738)

--  作者:有点酸
--  发布时间:2019/8/20 14:38:00
--  
1、可以通过下面的属性返回选定的文件:
http://www.foxtable.com/webhelp/topics/1899.htm

2、实际上不是复制到控件2,而是复制到控件2所绑定的列,复制的代码类似:

Dim fl1 As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim fl2 As WinForm.FileManager = e.Form.Controls("FileManager2")
If fl1.SelectedItem IsNot Nothing Then
    Dim file1 As String = ProjectPath  + "Attachments\\" & fl1.SelectedItem
    Dim file2 As String = ProjectPath  + "Attachments\\" & e.Form.Controls("姓名") & e.Form.Controls("任务") & System.IO.Path.GetExtension(file1)
    FileSys.CopyFile(file1,file2,True)
    Dim r As Row  = Tables("xxx").Current
    If r.IsNull("第二列") Then
        r("第二列") = e.Form.Controls("姓名") & e.Form.Controls("任务") & System.IO.Path.GetExtension(file1)
    Else
        r("第二列") = r("第二列") &  vbcrlf & e.Form.Controls("姓名") & e.Form.Controls("任务") & System.IO.Path.GetExtension(file1)
    End If
End If





--  作者:有点酸
--  发布时间:2019/8/20 15:29:00
--  
e.Form.Controls("下达人员1") .Value
e.Form.Controls("任务编码1").Value

如果是远程,无法直接在客户端复制文件,除非你下载再上传,但效率太低,建议设计OpenQQ服务端程序,客户端发送信号给服务端,让服务端完成复制工作。

--  作者:有点蓝
--  发布时间:2019/8/22 16:18:00
--  
参考:http://www.foxtable.com/webhelp/topics/2492.htm
--  作者:有点蓝
--  发布时间:2019/8/23 21:13:00
--  
导入后遍历所有行,如果那个单元格是空的,就取上一行的值填入
--  作者:有点蓝
--  发布时间:2019/8/23 21:47:00
--  
遍历参考:http://www.foxtable.com/webhelp/topics/1438.htm


Dim fl1 As WinForm.FileManager = Forms("窗口1").Controls("FileManager1")
Dim p As String = "\\\\192.168.1.10\\d\\生产数据\\信息管理系统\\管理文件\\任务过程标准\\"
If fl1.SelectedItem IsNot Nothing Then
    OutPut.Show("你选择了1个文件, 分别是:" & p & fl1.SelectedItem )
    Dim  Book As New XLS.Book(p & fl1.SelectedItem )
……
End If



--  作者:有点蓝
--  发布时间:2019/8/24 8:48:00
--  
打开的文件有问题,不是xlsx文件,可能是其它文件改扩展名的,直接使用execl能不能打开?

或者是xls文件,把扩展名改回来试试

--  作者:有点蓝
--  发布时间:2019/8/24 9:14:00
--  
上传实例测试
--  作者:有点蓝
--  发布时间:2019/8/24 9:54:00
--  
我测试没有问题。

OutPut.Show("你选择了1个文件, 分别是:" & p & fl1.SelectedItem ) 这里显示什么路径?放到资源管理器能不能直接打开?

--  作者:有点蓝
--  发布时间:2019/8/24 10:45:00
--  
这个是很明显的错误,控件名称写错了,我以为是手误所以没说,如果连这种问题都解决不了,回头重新学Foxtable把吧
--  作者:有点蓝
--  发布时间:2019/8/24 11:05:00
--  
这个文件肯定有问题,或者没有权限访问共享目录。复制到本地测试看看