以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  加载树代码错误？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52701)
--  作者：身份不明
--  发布时间：2014/6/20 17:07:00
--  加载树代码错误？

错误提示：


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
代码如下：

Dim Filter As String
If e.Node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
    Dim pname As String = dr("外协完成")
    Dim Year As Integer = dr("年")
    Dim Month As Integer = dr("月")
    Dim pname As String = dr("外协厂")
    Select Case e.Node.Level
        Case 0
            Filter ="[外协完成] = " & iif(dr("外协完成") = False, 0, 1)
        Case 1
            Filter ="Year(日期) = " & Year
        Case 2
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month
        Case 3
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And 外协厂 = \'" & pname & "\'"       
    End Select
End If
With DataTables("外协管理")
    .LoadFilter = Filter
    .LoadPage = 0
    .LoadTop = 10
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With

 
--  作者：有点甜
--  发布时间：2014/6/20 17:08:00
--  

Dim Filter As String
If e.Node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
    Dim Year As Integer = dr("年")
    Dim Month As Integer = dr("月")
    Dim pname As String = dr("外协厂")
    Select Case e.Node.Level
        Case 0
            Filter ="[外协完成] = " & iif(dr("外协完成") = False, 0, 1)
        Case 1
            Filter ="Year(日期) = " & Year
        Case 2
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month
        Case 3
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And 外协厂 = \'" & pname & "\'"       
    End Select
End If
With DataTables("外协管理")
    .LoadFilter = Filter
    .LoadPage = 0
    .LoadTop = 10
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With