加载条件出现问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教老师，以下代码在同一个窗口的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("|", ",") & ")"

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("|", ",") & ")"

老师，综合以上问题我做了个实例，请帮忙看看

问题：桌面信息开始显示的待办工作统计数是对的，但是点击LABEL打开窗口后，LABLE的数值就自动变化，但这时还没有点击审定确认，

点击不同的LABLE的，统计的数值也在交叉变化，与TABLE1里面的条件行似乎不一致应该是副本与正本的关系导致的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试aa.zip

Label3、Label5的click事件的加载代码，删除掉。

老师，如果把CLICK的代码删除后，桌面的两个LABEL的查看条件就并在一起了，相当于编制任务和校对任务就同时都加载行了，怎样分开

点击一个LABEL显示的是编制任务的行，点击另一个是校对任务行与桌面的统计数一致

[此贴子已经被作者于2016/6/28 17:27:47编辑过]

那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("|", ",") & ")"

大红袍老师，谢谢指导，不过，还有点小问题，第6楼的代码放在LABEL的CLICK里面，点击LABEL打开窗口时，窗口内的LABEL会有表格闪屏现象，先快速显示全部行后，最后加载的是符合条件的行。

根据帮助，我尝试了Forms("窗口名").StopRedraw() '停止绘制窗口.....Forms("窗口名").ReseumeRedraw() '停止绘制窗口，但没有实现。

AfterLoad事件，写代码

Tables("投标商务待审_Table8").Filter = "1=2"

主题：加载条件出现问题