- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68501)
-- 发布时间：2015/5/19 13:09:00
-- 求助
我想让“导入”按钮只有开发者能使用，管理员和其余人员点击按钮，不触发功能，导入代码里面需要加一段什么代码？
[此贴子已经被作者于2015/7/30 15:54:10编辑过]
-- 发布时间：2015/5/19 13:36:00
--
if user.name = "开发者" then
Dim mg As New Mergermg.SourcePath = "d:\\database\\物料信息.xlsx"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "物料信息$" \'指定要合并的表
mg.DataTableName = "物料信息表1" \'指定接收数据的表
mg.Merge() \'开始合并
end if
或者
f user.Type = UserTypeEnum.Developer then
end if
-- 发布时间：2015/7/30 15:54:00
--
导出功能：会导出表A所有内容，如何设置代码，使其仅导出筛选过的内容
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("表A").SaveExcel(dlg.FileName, "表A") \'保存文件
End If
-- 发布时间：2015/7/30 15:55:00
--
上面的代码，本来就只包括筛选过的内容
-- 发布时间：2015/7/31 1:25:00
--
红色位置，表名要写对，主要是不是窗口表
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("表A").SaveExcel(dlg.FileName, "表A") \'保存文件
End If
-- 发布时间：2015/8/3 11:11:00
--
软件打不开了，添加了导航窗口之后，怎么办？按住ctrl？
-- 发布时间：2015/8/3 11:13:00
--
打不开提示什么。
http://www.foxtable.com/help/topics/1057.htm
-- 发布时间：2015/8/3 11:20:00
--
啥提示也没有，长按CTRL打开来了
-- 发布时间：2015/8/3 11:23:00
--
帮忙看下代码有问题吗，运行后，单击物料信息，没有反应嘛
此主题相关图片如下：捕获.png
-- 发布时间：2015/8/3 11:33:00
--
case "物料信息"
case "PFEP信息"