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

狐爸，经测试以"入场监督查验"或"检疫申报"等分组身份进入系统达到了加载某指定屠宰场的数据，但以开发者或管理者身份进入时显示：

 

.NET Framework 版本：2.0.50727.6400
Foxtable 版本：2013.5.26.1
错误所在事件：加载[动物屠宰检疫]失败!
详细错误信息：
语法错误 (操作符丢失) 在查询表达式 '(() And 屠宰场名称 = '北方屠宰场')' 中。哪里还有问题？

加载前：

 

MessageBo.Show(Filter)

 

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

狐爸：

加载前：

MessageBox.Show(Filter)

显示：

（）And 屠宰场名称 = '北方屠宰场')

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

麻烦你把项目代码打包发上来给大家分析吧，单凭描述的话很多东西是不清楚的。

哈哈!太高兴了，还是狐爸厉害，问题解决！工作流功能和根据选择的列加载数据全部实现。

昨天下午到晚上认真研究了代码，实现工作流与原来扩展属性代码实现部分功能是矛盾的，我已经意识到必须要有判断语句来解决这个问题，写了几个都没有成，最终还是狐爸给解决了。谢谢狐爸！！