主题：[求助]怎样实现工作流同时实现根据某列加载数据

外部数据源，外网，在进入系统时根据某列如部门选择，部门如有A、B、C等，选择A则加载A部门的数据，怎样做可以实现？

我想在登陆窗口通过选择部门（扩展属性）加载某部门的所有数据，怎样实现？

扩展用户属性里：

名称：部门名称； 类型：字符型； 候选值：A|B|C

LoadUserSetting里：

DataTables("订单").LoadFilter = "部门名称 = '" & "部门名称" & "'"
 DataTables("订单").Load()

比如选择部门A后并没有只加载A部门的数据，哪有问题，红色部分？

Bin版主，按你的改了，还是无效啊。

不想怎么样！

就是登陆时（扩展用户属性里：名称：部门名称； 类型：字符型； 候选值：A|B|C）

选择A部门时，加载所有A部门的数据。

这不清楚吗？

狐爸：

本来是简单，我按你说的做了个例子，输入一些测试数据有效，我的现在的项目却不行，一直找不到什么原因。

我是外部数据源、外网原因？

首先声明，本人是正版的开发版用户。

 

终于知道哪里存在问题了，求帮忙解决：

'加载登录用户负责处理的行
Dim Filter As String
Dim bj As String
Select Case User.Group
    Case "入场监督查验"
        Filter = "进程 = '入场监督查验'" '进度一开始
    Case "检疫申报"
        Filter = "进程 = '入场监督查验完成' Or 进程 = '检疫申报'" '进度一结束或进度二开始
        bj = "检疫申报"
    Case "宰前检查"
        Filter = "进程 = '检疫申报完成' Or 进程 = '宰前检查'" '进度二结束或进度三开始
        bj = "宰前检查"
    Case "同步检疫"
        Filter = "进程 = '宰前检查完成' Or 进程 = '同步检疫'" '进度三结束或进度四开始
        bj = "同步检疫"
    Case Else
        Filter = "" '其他用户加载全部记录
End Select
DataTables("动物屠宰检疫").LoadFilter = Filter
DataTables("动物屠宰检疫").Load()
'设置本流程开始标记
If bj >"" Then
    For Each dr As DataRow In DataTables("动物屠宰检疫").DataRows
        dr("进程") = bj
    Next
End If
DataTables("动物屠宰检疫").Save()
  DataTables("动物屠宰检疫").LoadFilter = "屠宰场名称 = '" & User.ExtendedValues("屠宰场名称") & "'"
DataTables("动物屠宰检疫").Load()

说明：

蓝色部分是设定工作流代码，当某人进系统时进入其负责的指定的列，其他人不能操作，操作完成保存后，就再也看不到已操作完成的内容。

红色部分是进入系统时，选择屠宰场名称后，加载选择的屠宰场的数据。

现在的问题是：

红色部分代码放在前面，红色部分代码不起作用，放在蓝色代码后面，蓝色代码就不起作用？怎么修改使两个都起作用。

狐爸，上午我已联系客服QQ，讲了情况后，说还是要找您。我已发现了问题的所在，但就是不知如何解决，见16楼。

狐爸，帮忙，16楼代码哪有问题?