用这个事件:
http://www.foxtable.com/help/topics/1323.htm
例如:
Select Case User.Name Case "张三","李四" Tables("订单").Cols("第一列").Visible = False Tables("订单").Cols("第二列").Visible = False Tables("订单").Cols("第三列").Visible = False Case "王五", "赵六" Tables("订单").Cols("第一列").Visible = True Tables("订单").Cols("第二列").Visible = True Tables("订单").Cols("第三列").Visible = TrueEnd Select