- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 加载条件出现问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86889)
-- 发布时间：2016/6/28 13:05:00
-- 加载条件出现问题
请教老师，以下代码在同一个窗口的AFTERLOAD这样的写法存在问题
如果编制、校对、审核、批准为同一个人，加载要分别审核的行就不对，只会加载同名下其中一个条件的行，不会根据条件打开窗口后分别加载
\'------------------------------------------- 主窗口桌面 投标商务编制工作 Label134 显示 "投标商务审批"符合条件的行数量
Dim Filter134 As String = "审批流程 Like \'%编制程序_编制%\' and 审批人员 Like \'%" & _UserName & "%\' and (审定确认 not Like \'%" & _UserName & "%\' or 审定确认 Is null)"
Tables("投标商务待审_Table8").Filter = "_Identify in (-1," & Tables("投标商务待审_Table8").DataTable.GetComboListString("_Identify", filter134).replace("|", ",") & ")"
\'------------------------------------------- 主窗口桌面 投标商务校对工作 Label135 显示 "投标商务审批"符合条件的行数量
Dim Filter135 As String = "审批流程 Like \'%校对程序_校对%\' and 审批人员 Like \'%" & _UserName & "%\' and (审定确认 not Like \'%" & _UserName & "%\' or 审定确认 Is null)"
Tables("投标商务待审_Table8").Filter = "_Identify in (-1," & Tables("投标商务待审_Table8").DataTable.GetComboListString("_Identify", filter135).replace("|", ",") & ")"
-- 发布时间：2016/6/28 14:49:00
--
Dim Filter134 As String = "(审批流程 Like \'%编制程序_编制%\' and 审批人员 Like \'%" & _UserName & "%\' and (审定确认 not Like \'%" & _UserName & "%\' or 审定确认 Is null))"
Dim Filter135 As String = "(审批流程 Like \'%校对程序_校对%\' and 审批人员 Like \'%" & _UserName & "%\' and (审定确认 not Like \'%" & _UserName & "%\' or 审定确认 Is null))"
Tables("投标商务待审_Table8").Filter = "_Identify in (-1," & Tables("投标商务待审_Table8").DataTable.GetComboListString("_Identify", Filter134 & " or " & filter135).replace("|", ",") & ")"
-- 发布时间：2016/6/28 16:40:00
--
老师，综合以上问题我做了个实例，请帮忙看看
问题：桌面信息 开始显示的待办工作统计数是对的，但是点击LABEL打开窗口后，LABLE的数值就自动变化，但这时还没有点击审定确认，
点击不同的LABLE的，统计的数值也在交叉变化，与TABLE1里面的条件行似乎不一致 应该是副本与正本的关系导致的。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试aa.zip |
-- 发布时间：2016/6/28 16:50:00
--
Label3、Label5的click事件的加载代码，删除掉。
-- 发布时间：2016/6/28 17:03:00
--
老师，如果把CLICK的代码删除后，桌面的两个LABEL的查看条件就并在一起了，相当于编制任务和校对任务就同时都加载行了，怎样分开
点击一个LABEL显示的是编制任务的行，点击另一个是校对任务行 与桌面的统计数一致
[此贴子已经被作者于2016/6/28 17:27:47编辑过]
-- 发布时间：2016/6/28 17:39:00
--
那AfterLoad事件，就不要写代码啊，在click事件写对应的数据就行啊
Dim Filter135 As String = "审批流程 Like \'%校对程序_校对%\' and 审批人员 Like \'%" & _UserName & "%\' and (审定确认 not Like \'%" & _UserName & "%\' or 审定确认 Is null)"
Tables("投标商务待审_Table8").Filter = "_Identify in (-1," & Tables("投标商务待审_Table8").DataTable.GetComboListString("_Identify", filter135).replace("|", ",") & ")"
-- 发布时间：2016/6/28 21:46:00
--
大红袍老师，谢谢指导，不过，还有点小问题，第6楼的代码放在LABEL的CLICK里面，点击LABEL打开窗口时，窗口内的LABEL会有表格闪屏现象，先快速显示全部行后，最后加载的是符合条件的行。
根据帮助，我尝试了Forms("窗口名").StopRedraw() \'停止绘制窗口.....Forms("窗口名").ReseumeRedraw()
\'停止绘制窗口，但没有实现。
-- 发布时间：2016/6/28 22:36:00
--
AfterLoad事件，写代码
Tables("投标商务待审_Table8").Filter = "1=2"