筛选当日
If User.Group <> "销售开piao" AndAlso User.Group<>"发运地磅" Then Tables("FAJHB").Filter="[发运日期]=#" & Date.Today & "# and [市场部] = '" & User.group & "'"Else If User.Group = "销售开piao" AndAlso User.Group="发运地磅" Tables("FAJHB").Filter="[发运日期]=#" & Date.Today & "#"End If