主题：[求助]实现工作流情况下根据组合框的选择加载指定的数据

设计一窗口，有一组合框Combbox1,确定的代码是：

DataTables("订单").LoadFilter = "产品名称 = 'ComboBox1'"
  DataTables("订单").LoadFilter = Filter

比如选择了产品名称A,点击确定就应该加载含A产品的行，为什么不行能？

该文本框的ValueChanged事件代码：

DataTables("订单").LoadFilter = "产品名称 = '" & e.Sender.Value & "'"
DataTables("订单").LoadFilter = Filter

这是个自动流转应用，实现根据组合框的选择加载选择内容的行，下面是“确定”的代码，要使红色部分起作用，应该怎么写？

Dim bj As String
Dim Filter 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 = "屠宰场名称 = 'ComboBox1'"
  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 = "屠宰场名称 = '" & Forms("窗口名称").Controls("ComboBox1").Value & "'"
DataTables("动物屠宰检疫").LoadFilter = Filter

感谢程版主！

我把你的代码与之前提问时狐爸的代码结合在一起实现了工作流情况下根据组合框的选择加载指定的数据。代码如下：

Dim bj As String
Dim Filter 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 屠宰场名称 = "屠宰场名称 = '" & Forms("动物屠宰检疫管理登陆").Controls("ComboBox1").Value & "'"
Else
    filter = "屠宰场名称 = "屠宰场名称 = '" & Forms("动物屠宰检疫管理登陆").Controls("ComboBox1").Value & "'"
End If

DataTables("动物屠宰检疫").Load()

'设置本流程开始标记
If bj >"" Then
    For Each dr As DataRow In DataTables("动物屠宰检疫").DataRows
        dr("进程") = bj
    Next
End If
DataTables("动物屠宰检疫").Save()