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


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

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：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 的时候 打开这个文件，同时也执行红色的代码？

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


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/21 22:41:00 [只看该作者]

这个意思？

Dim app As New MSWord.Application
try
    Dim fileName = Tables("计划表窗口_Table7").Current("文件路径")
    Dim doc = app.Documents.Open(fileName)
    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 '记录学习时间
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/21 23:17:00 [只看该作者]

Dim fileName As String = Tables("计划表窗口_Table7").Current("文件路径")
If filename.EndsWith(".table") Then
    Syscmd.Project.Open(filename)
    Dim fdr As DataRow = DataTables("日计划").Find("日期 = '" & Date.Today & "'")
    If fdr IsNot Nothing Then
        fdr("学习科目") &= Tables("计划表窗口_Table7").Current("学习名称") & ";"
    End If
    
    Tables("计划表窗口_Table7").Current("最近日期")=Date.now '记录学习时间
Else
    Dim app As New MSWord.Application
    try
        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
    End try
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/22 8:39:00 [只看该作者]



Dim fileName As String = Tables("计划表窗口_Table7").Current("文件路径")
If filename.EndsWith(".table") Then
    Dim Proc As New Process '定义一个新的Process
    Proc.File = filename '指定要打开的文件
    Proc.Start()
    Dim fdr As DataRow = DataTables("日计划").Find("日期 = '" & Date.Today & "'")
    If fdr IsNot Nothing Then
        fdr("学习科目") &= Tables("计划表窗口_Table7").Current("学习名称") & ";"
    End If
    
    Tables("计划表窗口_Table7").Current("最近日期")=Date.now '记录学习时间
Else
    Dim app As New MSWord.Application
    try
        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
    End try
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点青
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00 		  发帖心情 Post By：2016/11/22 9:00:00 [只看该作者]

 打开 .table 的文件，你是无法读取里面的数据的。

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/22 17:59:00 [只看该作者]

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

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


加好友 发短信
等级：二尾狐 帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00 		  发帖心情 Post By：2016/11/22 19:16:00 [只看该作者]

 隐藏表 Tables("xxx").Visible = false

 

 打开窗口 Forms("yyy").Show
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/22 20:32:00 [只看该作者]

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

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