- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于数据导出的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85661)
-- 发布时间：2016/5/31 11:12:00
-- 关于数据导出的问题
红袍老师，这个是我数据导出的代码，导出某一段时间的代码，能不能在这段代码中加入一个用户组，比如说“肇庆区域”用户组，即导出用户组“肇庆区域”在某一段时间内的数据。这个代码怎么修改会比较好？
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("FAJHB").Filter = "发运日期 >= \'" & Forms("窗口2").Controls("DateTimePicker1").value & "\' and 发运日期 <= \'" & Forms("窗口2").Controls("DateTimePicker2").value & "\'"
Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") \'保存文件
msgbox("成功导出数据" )
End If
-- 发布时间：2016/5/31 11:20:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("FAJHB").Filter = "用户组 = \'肇庆区域\' and 发运日期 >= \'" & Forms("窗口2").Controls("DateTimePicker1").value & "\' and 发运日期 <= \'" & Forms("窗口2").Controls("DateTimePicker2").value & "\'"
Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") \'保存文件
msgbox("成功导出数据" )
End If
-- 发布时间：2016/5/31 14:42:00
-- 回复：（大红袍）Dim dlg As New SaveFileDialog '定义...
红袍老师，我的市场部是用用户组来区分的，在表属性的DataAdding里加入了这个代码：e.DataRow("市场部")=User.Group，我想导出的数据是登录用户所在市场部的数据，这可怎么搞？
-- 发布时间：2016/5/31 14:43:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("FAJHB").Filter = "市场部 = \'" & User.Group & "\' and 发运日期 >= \'" & Forms("窗口2").Controls("DateTimePicker1").value & "\' and 发运日期 <= \'" & Forms("窗口2").Controls("DateTimePicker2").value & "\'"
Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") \'保存文件
msgbox("成功导出数据" )
End If
-- 发布时间：2016/5/31 14:59:00
--
红袍老师，这个复制代码怎么写呢？
此主题相关图片如下：1.png
-- 发布时间：2016/5/31 15:01:00
--
Dim str As String = e.Form.Controls("TextBox1").Text
ClipBoard.SetText(str)
-- 发布时间：2016/5/31 15:11:00
--
感觉红袍老师的热心帮助，问题已经得到解决。经过近1个月的开发，领导要求我明两天就搞一个系统研讨会议，看还有什么要完善的？到时候还有问题，再向您请教。