Foxtable(狐表)用户栏目专家坐堂 → 打开文件的动态路径怎么写?


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

主题:打开文件的动态路径怎么写?

帅哥哟,离线,有人找我吗?
wukangppbb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:371 积分:2672 威望:0 精华:0 注册:2020/7/24 10:30:00
打开文件的动态路径怎么写?  发帖心情 Post By:2022/5/27 14:01:00 [只看该作者]

老师,问一问, doc文件单击打开的代码如下,但是"C:\test.doc"  这是一个动态路径,项目文件拷贝到其他PC机上,怎么保证也能打开呢?


Dim Proc As New Process
Proc.File = 
"C:\test.doc"
For
 each Verb As String In Proc.Verbs
    Output.Show(verb)

Next

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/27 14:07:00 [只看该作者]

方法1、限制文件只能复制到项目所在的文件夹里:
Proc.File = projectpath & "test.doc"

方法2、把文件路径保存到表格里
Proc.File = tables("表A").current("文件列")

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


加好友 发短信
等级:小狐 帖子:371 积分:2672 威望:0 精华:0 注册:2020/7/24 10:30:00
回复:(有点蓝)方法1、限制文件只能复制到项目所在的...  发帖心情 Post By:2022/5/27 14:57:00 [只看该作者]


老师,问一下
e.Table.ShowToolTip,这个是文本辅助显示,但是好像显示文本的时候不能按照字节数进行多行显示,如果文本很长就占满整个屏幕的一行,显得不美观,

如果列属性不使用备注型,这个e.Table.ShowToolTip可以怎么修改的?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/27 15:16:00 [只看该作者]

自己拆分,比如超过20个字就添加换行

Dim s As String = "判断字符串是否包含给定的子字符串。判断字符串是否包含给定的子字符串。判断字符串是否包含给定的子字符串。"
If s.Length > 20 Then
    Dim ss As String = ""
    Do While s.Length > 20
        ss = ss & vbCrLf & s.Substring(0, 20)
        s = s.Substring(20)
    Loop 
    ss = ss & vbCrLf & s
    ss = ss.Trim(vbcrlf)
    Output.Show(ss)
End If

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


加好友 发短信
等级:小狐 帖子:371 积分:2672 威望:0 精华:0 注册:2020/7/24 10:30:00
回复:(有点蓝)自己拆分,比如超过20个字就添加换行...  发帖心情 Post By:2022/5/27 17:01:00 [只看该作者]

这个是写在表事件的哪个事件里面的?

好像没有用到ShowToolTip 的功能了
[此贴子已经被作者于2022/5/27 17:01:59编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/27 17:08:00 [只看该作者]

我只是举例说明怎么拆分字符串,请理解一下,然后应用到自己需要ShowToolTip 的地方

 回到顶部