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

参考：

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

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

 

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

 

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

 

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

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

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

加载前：

 

MessageBo.Show(Filter)

 

看看合成的表达式有什么问题

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