Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打开 foxtable


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

主题：打开 foxtable
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		打开 foxtable  发帖心情 Post By：2016/11/21 22:34:00 [显示全部帖子]

Dim app As New MSWord.Application
try
    Dim fileName = Tables("计划表窗口_Table7").Current("文件路径")
    Dim doc = app.Documents.Open(fileName)
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app.ActiveWindow.Selection.TypeParagraph
    'app.ActiveWindow.Selection.TypeText(Text:=Date.Today & "   第" & datepart( "ww",Date.today) & "周") '只是显示日期
    app.ActiveWindow.Selection.TypeText(Text:=Date.now & "   第" & datepart( "ww",Date.today) & "周")
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try

Dim fdr As DataRow = DataTables("日计划").Find("日期 = '" & Date.Today & "'")
If fdr IsNot Nothing Then
    fdr("学习科目") &= Tables("计划表窗口_Table7").Current("学习名称") & ";"
End If

Tables("计划表窗口_Table7").Current("最近日期")=Date.now '记录学习时间

能在这个基础上帮忙加一个吗？

就是当 文件路径 列 （相当于这个列的文件是foxtable）后缀名是.table 的时候 打开这个文件，同时也执行红色的代码？

感谢 感谢 ，以前的这个按钮是点击后，打开这个列的 文件，然后输入内容， 想改为 直接打开，不输入内容， 然后红色代码还是执行 
感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/21 22:57:00 [显示全部帖子]

是这样的 这个文件路径列 有两种文件 
一种是 .doc(Word) 还有一种就是 foxtable ，
点击按钮 
如果是 Word 就执行代码之前的代码（打开，同时会输入时间，这个功能在之前的代码有，不管他） ，
如果是foxtable 就打开，同时还执行红色的代码。
感谢 感谢 
只是目前打开后还是 以word的方式打开的 foxtable 

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161121225232.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/11/21 22:57:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/21 23:28:00 [显示全部帖子]

可以了 感谢 太感谢了 ，可以不关闭以前的表吗，现在能打开，只是打开foxtable后就关闭了之前的foxtable了 （点击按钮的那个foxtable）
没有在日计划输入 最近日期和学习科目，红色的代码没有执行 ，可能是被关闭的原因

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,计划表窗口,Button29,Click
详细错误信息：
未将对象引用设置到对象的实例。

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161121232448.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/11/21 23:31:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/22 17:59:00 [显示全部帖子]

感谢 感谢 可以了，可以隐藏表吗？比如设计 一个按钮 然后只是隐藏表，只是显示窗口。

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/22 20:32:00 [显示全部帖子]

谢谢 可以隐藏所有的表吗？窗口背后的整个界面，就是只留窗口。

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/22 21:40:00 [显示全部帖子]

感谢  可以了 可以问问 如果打开就要执行这个代码应该放在什么事件里面啊 试了几个都没发现可以的呢？
感谢 感谢
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/22 22:19:00 [显示全部帖子]

谢谢 我刚才试过，只是 后面打开窗口都可以 ，可以是打开系统的时候执行吗？就是 打开系统后 隐藏

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/22 23:00:00 [显示全部帖子]

还是不行，谢谢你了，没事 不管他了吧 谢谢你 

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/22 23:03:00 [显示全部帖子]

可以了 是因为我把后缀名的大小写没有分开
[此贴子已经被作者于2016/11/22 23:08:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/22 23:31:00 [显示全部帖子]

我可以把这个代码放到按钮里面，然后打开后 设计一个点击按钮的代码可以吗？

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询