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