主题：追问条件加载的问题

老师好！我在BeforeLoad事件中用了下面代码，希望通过加载树加载时，制造部的人只能加载"[类别]列 <> '胶水'的行，但是下面的代码没用，请老师帮忙诊断一下，谢谢

Select Case e.DataTable.Name
    Case "DK"
        Select Case User.Group

            Case "制造部"
                Dim f3 As String =  "[类别] <> '胶水' "
                DataTables("DK").LoadFilter = f3
                DataTables("DK").Load()
        End Select
End Select

我也尝试用了下面的另一段代码，也无效

        Case "DK"
        Select Case User.Group 
        Case "制造部"
        Dim f3 As String =  "[类别] = '胶水' "
        If e.DataTable.LoadFilter = "" Then
        e.DataTable.LoadFilter = f3
        ElseIf e.DataTable.LoadFilter.IndexOf(f3) < 0  Then  

        e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " &  f3
        End If
        End Select

End Select