能帮忙看那看这个吗？感谢
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
Dim fdr As DataRow = DataTables("日计划").Find("日期 = '" & Date.Today & "'")
If fdr IsNot Nothing Then
fdr("学习科目") &= Tables("计划表窗口_Table7").Current("学习名称") & ";"
End If
Tables("计划表窗口_Table7").Current("最近日期")=Date.now '记录学习时间
End If
.NET Framework 版本：2.0.50727.8789
Foxtable 版本：2018.7.26.1
错误所在事件：窗口,计划表窗口,Button21,Click
详细错误信息：
检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 80080005。
加好友 
发短信
Post By：2018/8/19 18:36:00 [显示全部帖子]
