- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据导出权限设置问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91053)
-- 发布时间：2016/9/28 12:42:00
-- 数据导出权限设置问题
数据库涉及隐秘，不想让普通用户随意导出数据，仅保留普通用户对其可见列内容导出excel内容，怎么设置？
如foxtable中有A,B两张表，用户K为普通用户，权限为：仅可编辑查看A表中的13579列，和仅可编辑查看A表中的2468列。要求用户K不能随意导出数据（包括数据导出和打印输出），只保留并强制用户K只能把可见和可编辑的表的列导出至excel的权限。
此主题相关图片如下：保留输出excel.png
此主题相关图片如下：保留输出excel2.png
此主题相关图片如下：保留输出excel3.png
-- 发布时间：2016/9/28 14:32:00
--
屏蔽系统的菜单，做自己的菜单。自己做导出，通过代码导出
-- 发布时间：2016/9/28 19:33:00
-- 导出至excel跳出的小窗口自定义
数据库导出菜单隐藏已解决，但是需要保留导出至excel的功能，在【日常工作】的【日常统计】中的【保存为excel】中进行保存时，会跳出的小窗口，如下图，如何自定义该跳出的小窗口呢
此主题相关图片如下：保留输出excel3 - 副本.png
-- 发布时间：2016/9/28 20:37:00
--
没有办法控制这个，只能自己写代码导出
-- 发布时间：2016/9/28 21:37:00
-- 导出代码请教
请教导出代码编写
-- 发布时间：2016/9/28 21:54:00
--
看2楼
-- 发布时间：2016/9/29 12:26:00
--
做好了一个导出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
-- 发布时间：2016/9/29 12:27:00
--
已经试图把代码
Dim flg As New SaveExcelFlags
flg.CellStyle = True
加进去，但是一直没成功，是不是代码执行少了什么命令？
-- 发布时间：2016/9/29 14:12:00
--
Dim flg As New SaveExcelFlags
flg.CellStyle = True
flg.CellStyle = True
t.SaveExcel(dlg.FileName, t.name,flg)