主题：数据导出权限设置问题

数据库涉及隐秘，不想让普通用户随意导出数据，仅保留普通用户对其可见列内容导出excel内容，怎么设置？

如foxtable中有A,B两张表，用户K为普通用户，权限为：仅可编辑查看A表中的13579列，和仅可编辑查看A表中的2468列。要求用户K不能随意导出数据（包括数据导出和打印输出），只保留并强制用户K只能把可见和可编辑的表的列导出至excel的权限。
此主题相关图片如下：保留输出excel.png

此主题相关图片如下：保留输出excel2.png


此主题相关图片如下：保留输出excel3.png

屏蔽系统的菜单，做自己的菜单。自己做导出，通过代码导出

数据库导出菜单隐藏已解决，但是需要保留导出至excel的功能，在【日常工作】的【日常统计】中的【保存为excel】中进行保存时，会跳出的小窗口，如下图，如何自定义该跳出的小窗口呢
此主题相关图片如下：保留输出excel3 - 副本.png

没有办法控制这个，只能自己写代码导出

请教导出代码编写

看2楼

做好了一个导出excel按键，代码如下

Dim  dlg As New  SaveFileDialog
dlg.Filter=  "Excel文件|*.xls"
If dlg.ShowDialog =  DialogResult.Ok Then
    Dim t As Table = CurrentTable
    Dim tvcs As String = t.getColVisibleWidth
    t.SaveExcel(dlg.FileName, t.name)
    t.SetColVisibleWidth(tvcs)
End If

但是想让导出的excel默认保持在foxtable中的格式设置，如图 请问代码如何？

    Dim flg As New  SaveExcelFlags
    flg.CellStyle = True

此主题相关图片如下：导出格式.png


此主题相关图片如下：默认格式保存.png

已经试图把代码

Dim flg As New  SaveExcelFlags
    flg.CellStyle = True

 

加进去，但是一直没成功，是不是代码执行少了什么命令？