主题：入手权限操作，请教如何根据多条件进行判断，符合条件的载入相关数据！

Dim fdr As DataRow = DataTables("用户").Find("姓名 = '" & user.Name & "'")
Dim filter As String = "1=2"
If fdr IsNot Nothing
    If fdr("岗位") = "组长" Then
        Dim names As String = DataTables("用户").GetComboListString("姓名", "机构 = '" & fdr("机构") & "' and 部门 = '" & fdr("部门") & "' and 组别 = '" & fdr("组别") & "'").Replace("|", "','")
        filter = "录入人员 in ('" & names & "')"
    Else
        filter = "录入人员 = '" & user.Name & "'"
    End If
End If

DataTables("订单").LoadFilter = filter
DataTables("订单").Load()