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

老师好！我在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

谢谢，是我刚才犯了一个错误，制造部应该是  “开发部”。但新的问题出来了，改完重新打开系统后，点加载树节点名，死机，请问这是什么原因

你说的有道理，我还是用我2楼的第二段代码，修改了一下User.Group，可以了。感谢二位，顺祝二位工作愉快！