专家坐堂-主窗口增加加载树Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  主窗口增加加载树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=163022)

--  作者：zhuxinhui
--  发布时间：2021/4/21 9:55:00
--  主窗口增加加载树
我使用ACCESS数据库，想在主窗口打开时自动加载个目录树，按例子操作出现问题

--  作者：zhuxinhui
--  发布时间：2021/4/21 10:01:00
--
添加附件添加不了，提示：
Microsoft Jet 数据库引擎找不到输入表或查询 \'~TMPCLP现金银行\'。确定它是否存在，以及它的名称的拼写是否正确。

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：
详细错误信息：
Microsoft Jet 数据库引擎找不到输入表或查询 \'~TMPCLP现金银行\'。确定它是否存在，以及它的名称的拼写是否正确。

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：窗口,现金银行录入,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。

Dim cmd As New SQL Command
Dim dt As DataTable
cmd.CommandText = "SELE CT DISTINCT 年度,税务年度 From {现金银行}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年度|税务年度")
trv.Nodes.Insert("加载所有数据",0)

Dim Filter As String
If e.node.Text = "加载所有数据" Then
Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
Select Case e.Node.Level
Case 0
Filter ="[年度] = \'" & dr("年度") & "\'"
Case 1
Filter ="[年度] = \'" & dr("年度") & "\' And [税务年度] = \'" & dr("税务年度") & "\'"
End Select
End If
DataTables("现金银行").LoadFilter = Filter
DataTables("现金银行").Load()

--  作者：有点蓝
--  发布时间：2021/4/21 10:05:00
--
参考：http://www.foxtable.com/webhelp/topics/2344.htm

--  作者：zhuxinhui
--  发布时间：2021/4/21 10:23:00
--
多谢
昨晚搞了一个晚上

--  作者：zhuxinhui
--  发布时间：2021/4/23 17:41:00
--
Microsoft Jet 数据库引擎找不到输入表或查询 \'增减\'。确定它是否存在，以及它的名称的拼写是否正确。
\'\'\'\'\'\'\'\'\'\'\'\'\'\'加载目录树
Dim cmd As New SQ LCommand
Dim dt As DataTable
cmd.C \'外部数据要加多这个数据源,内部表就不用
cmd.CommandText = "SEL ECT DISTINCT 月份,月份 From {增减}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年份|月份")
trv.Nodes.Insert("加载所有行",0)
\'\'\'\'\'\'\'\'\'\'\'\'\'\'加载目录树

有一个窗口可以打开，但是其他还是提示这个提示

--  作者：zhuxinhui
--  发布时间：2021/4/23 17:42:00
--

Dim cmd As New SQ LCommand
Dim dt As DataTable
cmd.C \'外部数据要加多这个数据源,内部表就不用
cmd.CommandText = "SELE CT DISTINCT 月份,月份 From {增减}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年份|月份")
trv.Nodes.Insert("加载所有行",0)
\'\'\'\'\'\'\'\'\'\'\'\'\'\'加载目录树

--  作者：zhuxinhui
--  发布时间：2021/4/23 17:43:00
--

Dim cmd As New S QLCommand
Dim dt As DataTable
cmd.Co nnecti \'外部数据要加多这个数据源,内部表就不用
cmd.CommandText = "SEL ECT DISTINCT 月份,月份 From {增减}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年份|月份")
trv.Nodes.Insert("加载所有行",0)
\'\'\'\'\'\'\'\'\'\'\'\'\'\'加载目录树

--  作者：zhuxinhui
--  发布时间：2021/4/23 17:44:00
--

Dim cmd As New SQ LCommand
Dim dt As DataTable
cmd.C onnection Name = "GZ" \'外部数据要加多这个数据源,内部表就不用
cmd.Co mmandText = "SEL ECT DISTINCT 月份,月份 From {增减}"
dt = cm d.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年份|月份")
trv.Nodes.Insert("加载所有行",0)
\'\'\'\'\'\'\'\'\'\'\'\'\'\'加载目录树

--  作者：zhuxinhui
--  发布时间：2021/4/23 21:19:00
--
Dim cmd As New SQ LCommand
Dim dt As DataTable
cmd.C onnectionName = "外部数据源名称"
cmd.CommandText = "SELE CT DISTINCT 产品,客户 From {订单}"
dt = cmd.Exe cuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "产品|客户")
很多用户，包括我自己，都会犯这个错误，明明代码正确，却没有结果，折腾半天，只是因为没有设置数据源名称而已。

明明我是使用这个代码的，为什么只有一个窗口可以加载，其他窗口不行吗？

--  作者：有点蓝
--  发布时间：2021/4/24 9:23:00
--
不管什么窗口，用法都一样。

这个窗口打开了吗？代码放到窗口什么事件里？