用这个事件:
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 = True
End Select