以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  数据表更改为外部数据后，目录树错误，如何处理  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139811)

--  作者：lg_yaolong --  发布时间：2019/8/22 9:30:00 --  数据表更改为外部数据后，目录树错误，如何处理 按时间查询目录树，表更改为外部后不能操作，出现故障提示：Microsoft Jet 数据库引擎找不到输入表或查询 \'~TMPCLP保险查询\'。 确定它是否存在，以及它的名称的拼写是否正确。

--  作者：有点蓝 --  发布时间：2019/8/22 9:36:00 --   写了什么代码？看看：http://www.foxtable.com/webhelp/topics/2344.htm

--  作者：lg_yaolong --  发布时间：2019/8/22 9:37:00 --   Dim Filter As String = "" If e.node.Name <> "显示所有行" Then     Dim d1 As Date     Dim d2 As Date     Dim Year As Integer = e.Node.DataRow("年")     Dim Month As Integer = e.Node.DataRow("月")     Dim Product As String = e.Node.DataRow("车号")     Select Case e.Node.Level         Case 0             d1 = New Date(Year,1,1) \'取得该年的第一天             d2 = new Date(Year,12,31) \'取得该年的最后一天             Filter = "投保时间 >= #" & d1 & "# And 投保时间 <= #" & d2 & "#"         Case 1             d1 = New Date(Year, Month, 1) \'取得该月的第一天             d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天             Filter = "投保时间 >= #" & d1 & "# And 投保时间 <= #" & d2 & "#"         Case 2             d1 = New Date(Year, Month, 1) \'取得该月的第一天             d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天             Filter = "投保时间 >= #" & d1 & "# And 投保时间 <= #" & d2 & "# And 车号 = \'" & Product & "\'"     End Select End If Tables("保险查询").Filter = Filter

--  作者：有点蓝 --  发布时间：2019/8/22 9:39:00 --   不是这里的问题，生成目录树的问题，请仔细看看2楼的帮助