主题：关于数据导出的问题

红袍老师，这个是我数据导出的代码，导出某一段时间的代码，能不能在这段代码中加入一个用户组，比如说“肇庆区域”用户组，即导出用户组“肇庆区域”在某一段时间内的数据。这个代码怎么修改会比较好？

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

红袍老师，我的市场部是用用户组来区分的，在表属性的DataAdding里加入了这个代码：e.DataRow("市场部")=User.Group，我想导出的数据是登录用户所在市场部的数据，这可怎么搞？

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

红袍老师，这个复制代码怎么写呢？
此主题相关图片如下：1.png

Dim str As String = e.Form.Controls("TextBox1").Text

ClipBoard.SetText(str)

感觉红袍老师的热心帮助，问题已经得到解决。经过近1个月的开发，领导要求我明两天就搞一个系统研讨会议，看还有什么要完善的？到时候还有问题，再向您请教。