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

这是基本功能，不会有任何问题的。

 

如果您搞不定，就做个例子：

 

1、在用户管理中设置好扩展属性，增加几个用户，设置好每个用户所属的部门
2、设计好这个数据表，输入一些测试数据。

 

然后将文件发上来，我帮你设置一下。

狐爸：

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

如果是是正版用户，明天可以联系客服QQ远程看看。

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

这个和内网外网，内部表外部表没有关系，100%你自己的代码不严谨。

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

 

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

'加载登录用户负责处理的行
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楼代码哪有问题?

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 = "(" & Filter & ") And 屠宰场名称 = '" & User.ExtendedValues("屠宰场名称") & "'"
DataTables("动物屠宰检疫").Load()

或者：

 

 

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
filter = "(" & Filter & ") And 屠宰场名称 = '" & User.ExtendedValues("屠宰场名称") & "'"
DataTables("动物屠宰检疫").LoadFilter = Filter
DataTables("动物屠宰检疫").Load()
'设置本流程开始标记
If bj >"" Then
    For Each dr As DataRow In DataTables("动物屠宰检疫").DataRows
        dr("进程") = bj
    Next
End If
DataTables("动物屠宰检疫").Save()