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