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

 参考 http://www.foxtable.com/help/topics/2256.htm

 你其它表，不是只有录入者一列么？所以你写条件的时候，直接判断user.name就行了。

 但是你的订单表只有一列录入者的信息啊，除非你把用户的所有信息都记录着，不然无法实现你的功能。

 1、订单表记录足够信息；2、根据user.name、user.group等信息，对应的加载订单表，或者查找用户表后，加载订单表

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("组别") & "'").Replace("|", "','")
        filter = "录入人员 in ('" & names & "')"
    Else
        filter = "录入人员 = '" & user.Name & "'"
    End If
End If

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

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()