Foxtable(狐表)用户栏目专家坐堂 → [求助]关于打开局域网共享文件夹中的文件


  共有6357人关注过本帖树形打印复制链接

主题:[求助]关于打开局域网共享文件夹中的文件

美女呀,离线,留言给我吧!
nanatu
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:133 积分:957 威望:0 精华:0 注册:2015/6/30 22:29:00
  发帖心情 Post By:2016/6/16 17:03:00 [只看该作者]

就只是表,没有其他控件

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/16 17:21:00 [只看该作者]

 那表是什么表?副本表,还是SqlTable,还是SqlQuery?

 

 你把表锁定不允许编辑?


 回到顶部
美女呀,离线,留言给我吧!
nanatu
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:133 积分:957 威望:0 精华:0 注册:2015/6/30 22:29:00
  发帖心情 Post By:2016/6/30 14:40:00 [只看该作者]

窗口只有目录树和表,我还没有添加其他控件,我打算是要加个按钮。还有我的文件都放在局域网里作为文件服务器的电脑上,也是按常规的写地址吗


 回到顶部
美女呀,离线,留言给我吧!
nanatu
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:133 积分:957 威望:0 精华:0 注册:2015/6/30 22:29:00
  发帖心情 Post By:2016/6/30 14:42:00 [只看该作者]

就是normal,我是禁止了编辑

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/30 14:47:00 [只看该作者]

以下是引用nanatu在2016/6/30 14:42:00的发言:
就是normal,我是禁止了编辑

 

禁止编辑,自然不能打开文件。禁止编辑,尽量去写startEdit事件 e.Cancel = true


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/30 14:49:00 [只看该作者]

以下是引用nanatu在2016/6/30 14:40:00的发言:

窗口只有目录树和表,我还没有添加其他控件,我打算是要加个按钮。还有我的文件都放在局域网里作为文件服务器的电脑上,也是按常规的写地址吗

 

放在哪里都没问题,按钮代码这样写

 

Dim path As String = DataTables("表A").dataCols("第一列").DefaultFolder
If path = Nothing Then
    path = ProjectPath & "attachments/"
End If
path = path & Tables("表a").Current("第一列")
Dim proc As new Process
proc.File = path
proc.Start


 回到顶部
美女呀,离线,留言给我吧!
nanatu
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:133 积分:957 威望:0 精华:0 注册:2015/6/30 22:29:00
  发帖心情 Post By:2016/6/30 16:30:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:调整向导-1.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/6/30 17:17:00 [只看该作者]

17楼的图片看不清楚,还有说明问题是什么

 回到顶部
美女呀,离线,留言给我吧!
nanatu
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:133 积分:957 威望:0 精华:0 注册:2015/6/30 22:29:00
  发帖心情 Post By:2016/6/30 17:20:00 [只看该作者]

问题解决了,谢谢!

不过还有一个问题,因为数据用的是外部数据,每次别人打开项目之前都要手动连接一下存放数据的电脑,这个需要在项目里怎么设置才能解决这个问题啊


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/30 17:50:00 [只看该作者]

以下是引用nanatu在2016/6/30 17:20:00的发言:

问题解决了,谢谢!

不过还有一个问题,因为数据用的是外部数据,每次别人打开项目之前都要手动连接一下存放数据的电脑,这个需要在项目里怎么设置才能解决这个问题啊

 

登陆的意思?

 

BeforeOpenProject加入代码

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine( "net use  \\192.168.44.202\ 密码 /user:用户名")
p.StandardInput.WriteLine("exit")

 回到顶部
总数 64 上一页 1 2 3 4 5 6 7 下一页