- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打开 foxtable (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93152)
-- 发布时间：2016/11/21 22:34:00
-- 打开 foxtable
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 的时候 打开这个文件，同时也执行红色的代码？
感谢 感谢 ，以前的这个按钮是点击后，打开这个列的 文件，然后输入内容， 想改为 直接打开，不输入内容， 然后红色代码还是执行
感谢 感谢
-- 发布时间：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 \'记录学习时间
-- 发布时间：2016/11/21 22:57:00
--
是这样的 这个文件路径列 有两种文件
一种是 .doc(Word) 还有一种就是 foxtable ，
点击按钮
如果是 Word 就执行代码之前的代码（打开，同时会输入时间，这个功能在之前的代码有，不管他） ，
如果是foxtable 就打开，同时还执行红色的代码。
感谢 感谢
只是目前打开后还是 以word的方式打开的 foxtable
此主题相关图片如下：qq截图20161121225232.jpg
[此贴子已经被作者于2016/11/21 22:57:45编辑过]
-- 发布时间：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
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2016/11/22 9:00:00
--
打开 .table 的文件，你是无法读取里面的数据的。
-- 发布时间：2016/11/22 17:59:00
--
感谢 感谢 可以了，可以隐藏表吗？比如设计 一个按钮 然后只是隐藏表，只是显示窗口。
-- 发布时间：2016/11/22 19:16:00
--
隐藏表 Tables("xxx").Visible = false
打开窗口 Forms("yyy").Show
-- 发布时间：2016/11/22 20:32:00
--
谢谢 可以隐藏所有的表吗？窗口背后的整个界面，就是只留窗口。