有个小问题请大家帮忙看下！

SQLQuery表生成语句如下

SELECT  p.WLID AS [物料编码] ,
        p.Wlmc AS [物料名称] ,
        p.Gg AS [规格] ,
        p.Xh AS [型号] ,
        j.DwMc AS [主计量单位],
        A.Name AS [分类名称],
        A.ID AS [分类编号],
        p.Jsm AS [检索码],
        p.zt AS [是否使用],
        b.DwMc AS [辅计量单位],
        c.DLID AS [一级分类编号],
        c.ElID AS [二级分类编号]
       
FROM    dbo.Wlbm p
        LEFT JOIN dbo.Jldw j ON p.Dw = j.DwID
        LEFT JOIN dbo.Lbmc A ON p.Fl = a.ID
        LEFT JOIN dbo.Wllb C ON P.Fl = C.id
        left JOIN dbo.Jldw B ON p.Fdw = B.DwID

窗口 treeview 的 afterselectnode 事件 如下

Select Case e.Node.Level
    Case 0
        If e.Node.Name = "所有分类" Then
        xz.Enabled = False
        Tables("物料管理_wlb").DataTable.LoadFilter = ""
        Tables("物料管理_wlb").DataTable.Load
        Else
        Tables("物料管理_wlb").DataTable.LoadFilter = "[一级分类编号] = \'" & e.Node.Name & "\'"
        Tables("物料管理_wlb").DataTable.Load
        End If
    Case 1
        xz.Enabled = False
        Tables("物料管理_wlb").DataTable.LoadFilter = "[二级分类编号] = \'" & e.Node.Name & "\'"
        Tables("物料管理_wlb").DataTable.Load      
    Case 2
        xz.Enabled = True
        Tables("物料管理_wlb").DataTable.LoadFilter = "[分类编号] = \'" & e.Node.NAME & "\'"
        Tables("物料管理_wlb").DataTable.Load  
        wlfl.Text = e.Node.Text
End Select

报错 列名一级分类编号无效，列名二级分类编号无效，列名分类编号无效 这个语句该如何写？

写成如下的时候又提示我列名id不明确！
Select Case e.Node.Level
    Case 0
        If e.Node.Name = "所有分类" Then
        xz.Enabled = False
        Tables("物料管理_wlb").DataTable.LoadFilter = ""
        Tables("物料管理_wlb").DataTable.Load
        Else
        Tables("物料管理_wlb").DataTable.LoadFilter = "dlid = \'" & e.Node.Name & "\'"
        Tables("物料管理_wlb").DataTable.Load
        End If
    Case 1
        xz.Enabled = False
        Tables("物料管理_wlb").DataTable.LoadFilter = "elid = \'" & e.Node.Name & "\'"
        Tables("物料管理_wlb").DataTable.Load      
    Case 2
        xz.Enabled = True
        Tables("物料管理_wlb").DataTable.LoadFilter = "id = \'" & e.Node.NAME & "\'"
        Tables("物料管理_wlb").DataTable.Load  
        wlfl.Text = e.Node.Text
End Select

能否远程下，sql数据库太麻烦！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

请查看附件！带sql数据库备份！

这个只是写sql语句的一个习惯！