[求助]SaveExcel - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]SaveExcel

共有2716人关注过本帖树形打印复制链接主题：[求助]SaveExcel

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

[求助]SaveExcel 发帖心情

Post By：2016/4/11 12:31:00 [显示全部帖子]

Dim dlg As New SaveFileDialog

dlg.Filter= "Excel文件|*.xls"

dlg.FileName = "全部序列号明细"

If dlg.ShowDialog = DialogResult.Ok Then

Tables("扫描配货明细").SaveExcel(dlg.FileName, "SN")

MessageBox.show("保存路径:" & dlg.filename,"保存成功!",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

SaveExcel仅仅能保存了当前表的数据？并没有把所有的数据都保存。是这样吗？

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/4/11 17:15:00 [显示全部帖子]

不想重新load数据。但是只filter，不load，可以吗？仍然是当前的数据，而非全部数据。

Tables("扫描配货明细").Filter = ""

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

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

dlg.FileName = "全部序列号明细"

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

Tables("扫描配货明细").SaveExcel(dlg.FileName, "SN") '保存文件

MessageBox.show("保存路径:" & dlg.filename,"保存成功!",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/4/11 17:36:00 [显示全部帖子]

那有什么办法，导出的是全部的数据，但显示的仅仅是这次的2行数据。不希望看到在界面看到全部的数据，excel可以看到全部的数据就可以了。

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/4/12 10:53:00 [显示全部帖子]

生产结束扫描完成时间格式为:DateLongTime 如:2016-04-12 10:43:56

为什么导出到excel变为了DateTime。如2016-04-12

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/4/12 14:04:00 [显示全部帖子]

保存完怎么当前窗口自动关掉了呢。应该保持当前窗口吧。

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/4/12 14:06:00 [显示全部帖子]

qdt.SelectString = "select * fr om {扫描配货明细} group by 生产结束扫描完成时间 "

加上排序，就报错，提示不存在临时表。

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/4/12 15:08:00 [显示全部帖子]

Dim qdt As new QueryBuilder

qdt.TableName = "临时"

qdt.C

qdt.SelectString = "select * fr om {扫描配货明细}"

qdt.Build

DataTables("临时").DataCols("生产结束扫描完成时间").SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)

DataTables("临时").DataCols("生成收货单时间").SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)

Tables("临时").Sort = "生产结束扫描完成时间"

Dim dlg As New SaveFileDialog

dlg.Filter= "Excel文件|*.xls"

dlg.FileName = "全部序列号明细"

If dlg.ShowDialog = DialogResult.Ok Then

Tables("临时").SaveExcel(dlg.FileName, "SN")

DataTables.Unload("临时")

MessageBox.show("保存路径:" & dlg.filename,"保存成功!",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

弹出的msgbox后，点击确定，当前的form自动关掉了。

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/4/12 15:50:00 [显示全部帖子]

我怎么测试一直就有问题呢。请看看是不是其它代码影响导致的。

还是上传例子。

窗体-----生产入库

按钮是保存

下载信息 [文件大小：下载次数： ]
点击浏览该文件:临时版本跟踪系统122503.rar

[此贴子已经被作者于2016/4/12 15:50:11编辑过]

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/4/12 16:10:00 [显示全部帖子]

哦。我之前是在设计窗口测试的。

重新打开工程，测试是好的。

请帮忙看看导入按钮的代码。怎么就只循环一次呢，就第一行导入方式列为导入入库，其他的行导入方式都是为空。会不会和datacolchange有关。

帖子:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83433&authorid=0&page=0&star=2

导入的excel如附件。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sn (3).rar

[此贴子已经被作者于2016/4/12 16:11:08编辑过]

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/4/12 16:56:00 [显示全部帖子]

Dim r As Row = e.Form.Controls("Table1").Table.AddNew
e.Form.Controls("Table1").Table.Select(r.Index,0)
e.Form.Controls("Table1").Select

这段代码主要是当扫描枪扫描完数据，相当于回车，然后新增行，光标定位到SN列。

除了扫描枪自动扫描数据外，也支持手工书写，完了导入数据。然后就出现上面的问题了。

怎么样能判断这两种方式会不干扰。

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

总数 13 1 2 下一页

主题：[求助]SaveExcel