主题：自定义加载数的条件代码问题！！

我错了Bin老师，是我没表达清楚。您看下图。

 

此主题相关图片如下：11.jpg

你怎么拼接出  '外协完成 AND 外协厂名称'  这样的字符串来?

你上例子吧,我给你的代码,不应该拼出这种字符串出来呢.

表是外部表，上传不了，Bin老师！我加载树的加载条件一次是完成日期（按月），外协完成，外协厂名称！！

现在窗口的代码已经做好了，就是加载数的NodeMouseDoubleClick代码下，不如该如何添加“外协厂名称”，您在下面的代码下

告诉我该如何添加最后一个“外协厂名称”的加载条件就好了！

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 Product 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 外协完成 = '" & Product & "'"
            End Select
End If

With DataTables("外协管理")
    .LoadFilter = Filter
    .LoadPage = 0
    .LoadTop = 500
    .Load()
    e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With

前面给你发的代码就不应该有问题,有问题就做个例子吧.

 是不是这个意思？

 

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 Product As String = dr("外协完成")
    Dim pname 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 外协完成 = '" & Product & "'"
        Case 3
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And 外协完成 = '" & Product & "' and 外协厂名称 = '" & pname & "'"        
    End Select
End If

With DataTables("外协管理")
    .LoadFilter = Filter
    .LoadPage = 0
    .LoadTop = 500
    .Load()
    e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With

外协完成是逻辑列，我把单引号删除掉以后出现了这个错误提示！

此主题相关图片如下：123.jpg

改一下

 

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 Product As Boolean = dr("外协完成")
    Dim pname 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 外协完成 = " & Product & ""
        Case 3
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And 外协完成 = " & Product & " and 外协厂名称 = '" & pname & "'"        
    End Select
End If

With DataTables("外协管理")
    .LoadFilter = Filter
    .LoadPage = 0
    .LoadTop = 500
    .Load()
    e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With