这段代码放在,afterload 里,切换用户不起作用是怎么回事呢
If User.name = "开piao" Then Tables("销售订单").OpenView("开piao") ElseIf User.name = "制单" Then Tables("销售订单").OpenView("制单") Else Tables("销售订单").OpenView("全部")End If