Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(订购日期) As 年, Month(日期) As 月, 客户,工作号 From {订单明细表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|客户|工作号")
2、目录树的NodeMouseDoubleClick事件代码改为:
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim Kehu As String = dr("客户")
Dim Job As String = dr("工作号")
Select Case e.Node.Level
Case 0
Filter ="Year(日期) = " & Year
Case 1
Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month
Case 2
Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And 客户 = '" & Kehu & "'"
Case 3
Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And 客户 = '" & Kehu & " And 工作号 = '" & Job &"'"
End Select
DataTables("订单明细表").LoadFilter = Filter
DataTables("订单明细表").Load()
ACCESS数据库
提示错误
Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLP订单明细表'。 确定它是否存在,以及它的名称的拼写是否正确。