- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]实现工作流情况下根据组合框的选择加载指定的数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34641)
-- 发布时间：2013/6/10 20:35:00
-- [求助]实现工作流情况下根据组合框的选择加载指定的数据
设计一窗口，有一组合框Combbox1,确定的代码是：
DataTables("订单").LoadFilter = "产品名称 = \'ComboBox1\'"
DataTables("订单").LoadFilter = Filter
比如选择了产品名称A,点击确定就应该加载含A产品的行，为什么不行能？
-- 发布时间：2013/6/10 21:00:00
--
该文本框的ValueChanged事件代码：
DataTables("订单").LoadFilter = "产品名称 = \'" & e.Sender.Value & "\'"
DataTables("订单").LoadFilter = Filter
-- 发布时间：2013/6/11 0:20:00
--
这是个自动流转应用，实现根据组合框的选择加载选择内容的行，下面是“确定”的代码，要使红色部分起作用，应该怎么写？
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()
此主题相关图片如下：登陆.jpg
-- 发布时间：2013/6/11 0:28:00
--
DataTables("动物屠宰检疫").LoadFilter = "屠宰场名称 = \'" & Forms("窗口名称").Controls("ComboBox1").Value & "\'"
DataTables("动物屠宰检疫").LoadFilter = Filter
-- 发布时间：2013/6/11 8:41:00
--
感谢程版主！
我把你的代码与之前提问时狐爸的代码结合在一起实现了工作流情况下根据组合框的选择加载指定的数据。代码如下：
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()