如何根据DateTimePicker控件值导出数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何根据DateTimePicker控件值导出数据

共有3232人关注过本帖树形打印复制链接主题：如何根据DateTimePicker控件值导出数据

scofields

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4567 威望：0 精华：0 注册：2016/4/17 20:05:00

如何根据DateTimePicker控件值导出数据 发帖心情

Post By：2016/5/16 21:49:00 [显示全部帖子]

红袍老师，我怎么根据DateTimePicker选择的日期导出数据到到一个Excel文档？

scofields

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4567 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2016/5/16 22:08:00 [显示全部帖子]

我发现这样写不对啊，怎么改进啊？

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Tables("FAJHB").Filter = Form("窗口2").Controls("DateTimePicker1").value

Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") '保存文件

End If

scofields

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4567 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2016/5/16 22:30:00 [显示全部帖子]

如果导出某个时间段的数据呢，是不是改成这样：

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Tables("FAJHB").Filter = "发运日期 = #" & Form("窗口2").Controls("DateTimePicker1").value & "#" Andalso "发运日期 = #" & Form("窗口2").Controls("DateTimePicker2").value & "#"

Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") '保存文件

End If

scofields

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4567 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2016/5/16 22:35:00 [显示全部帖子]

红袍老师，可以用between来吗？

scofields

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4567 威望：0 精华：0 注册：2016/4/17 20:05:00

回复：（大红袍）Dim dlg As New SaveFileDialog '定义... 发帖心情

Post By：2016/5/17 21:32:00 [显示全部帖子]

红袍老师，我按你给的代码，发现导出的数据是空白的，且我的窗体中Table也是空白的，你看着怎么处理？

scofields

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4567 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2016/5/17 21:33: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") '保存文件
End If

此主题相关图片如下：111111.png

[此贴子已经被作者于2016/5/17 21:34:43编辑过]

scofields

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：564 积分：4567 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2016/5/17 23:40:00 [显示全部帖子]

红袍老师，我的数据源是SQL SERVER数据源，我把代码：

Tables("FAJHB").Filter = "发运日期 >= #" & Forms("窗口2").Controls("DateTimePicker1").value & "# and 发运日期 <= #" & Forms("窗口2").Controls("DateTimePicker2").value & "#"
改成：
Tables("FAJHB").Filter = "发运日期 >= ‘" & Forms("窗口2").Controls("DateTimePicker1").value & "’ and 发运日期 <= ‘" & Forms("窗口2").Controls("DateTimePicker2").value & "’"

可我不明白的是，为什么要把#改成“‘”？红袍老师，这是什么原因啊？

下一主题 >> << 上一主题

主题：如何根据DateTimePicker控件值导出数据