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


  共有2060人关注过本帖树形打印复制链接

主题:窗口加载树

帅哥哟,离线,有人找我吗?
禾成
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:149 积分:1295 威望:0 精华:0 注册:2018/12/12 23:23:00
窗口加载树  发帖心情 Post By:2019/7/2 20:21:00 [只看该作者]

我的后台数据库是ACCESS
窗口的AfterLoad事件代码:
Dim cmd As New SQL Command
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(报价日期) As 年, Month(报价日期) As 月, 客户 F rom {报价主表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|客户")


目录树的NodeMouseDoubleClick事件代码
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim Product As String = dr("客户")
Select C ase e.N ode.Level
Case 0
Filter ="Year(日期) = " & Year
Case 1
Filter ="Year(日期) = " & Year & " And Month(报价日期) = " & Month
Case 2
Filter ="Year(日期) = " & Year & " And Month(报价日期) = " & Month & " And 客户 = '" & Product & "'"
End Select
DataTables("报价主表").LoadFilter = Filter
DataTables("报价主表").Load()



这是我照抄的,为什么不行?是不是ACCESS数据库的写法不是这样?

提示:(Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLP报价主表'。 确定它是否存在,以及它的名称的拼写是否正确。

错误所在事件:窗口,主窗口,AfterLoad
详细错误信息:
Object reference not set to an instance of an object.
请老师指点

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107729 积分:547978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/2 21:21:00 [只看该作者]


 回到顶部