主题：角色问题

If User.IsRole("录入员") Then
    Tables("收入").Visible=False
    Tables("支出").Visible=False
    Tables("当月二保").Visible=False
    Tables("发送内容").Visible=False
    Tables("应收款").Visible=False
    Tables("账务查询").Visible=False
    Tables("账务支出").Visible=False
    Tables("北斗续费").Visible=False
    Tables("月度查询").Visible=False
    Tables("已付款").Visible=False
    Tables("转籍档案").Visible=False
    Tables("日志").Visible=False
End If