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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 主窗口增加加载树

共有2500人关注过本帖树形打印复制链接主题：主窗口增加加载树

zhuxinhui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1860 积分：5263 威望：0 精华：0 注册：2017/11/8 17:37:00

主窗口增加加载树 发帖心情

Post By：2021/4/21 9:55:00 [显示全部帖子]

我使用ACCESS数据库，想在主窗口打开时自动加载个目录树，按例子操作出现问题

zhuxinhui

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1860 积分：5263 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：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()

zhuxinhui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1860 积分：5263 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2021/4/21 10:23:00 [显示全部帖子]

多谢

昨晚搞了一个晚上

zhuxinhui

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1860 积分：5263 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1860 积分：5263 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1860 积分：5263 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：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

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1860 积分：5263 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：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

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1860 积分：5263 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：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, "产品|客户")

很多用户，包括我自己，都会犯这个错误，明明代码正确，却没有结果，折腾半天，只是因为没有设置数据源名称而已。

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