以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请问下,数据导出的代码怎么写呢? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48510) |
-- 作者:youngk -- 发布时间:2014/3/30 23:06:00 -- 请问下,数据导出的代码怎么写呢? 功能区里面有个高速导入的功能,我们这么才能在自己项目的功能区也设计出一个同样的 按钮 和 对话窗口呢?有没有现成的代码啊,请求支援~~~ |
-- 作者:lsy -- 发布时间:2014/3/31 6:14:00 -- 设计菜单的时候,选择导入系统菜单,所有代码都有了。 |
-- 作者:youngk -- 发布时间:2014/3/31 7:35:00 -- 请问一下,导入excel后,需要输入增加的表名,能不能直接用新导入的表代替同名原表呢?或者在同名原表上增加新导入的行呢? |
-- 作者:lsy -- 发布时间:2014/3/31 7:49:00 -- 导入原表,用合并。 |
-- 作者:youngk -- 发布时间:2014/3/31 7:53:00 -- 可不可以向其他的程序一样直接替换原表哦~~~ |
-- 作者:Bin -- 发布时间:2014/3/31 8:19:00 -- 不可以,如果表结构一样.可以删除原有数据,然后使用合并数据功能. 完毕再修改表名
|
-- 作者:youngk -- 发布时间:2014/3/31 10:09:00 -- 怎么才能打开备份文件了
|
-- 作者:Bin -- 发布时间:2014/3/31 10:23:00 -- .Bak文件,只需要删除后缀名即可. |
-- 作者:utcxray -- 发布时间:2014/3/31 12:29:00 -- 导出代码 Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls"
\'设置筛选器 If dlg.ShowDialog =
DialogResult.Ok Then \'如果用户单击了确定按钮 Tables("采购单").SaveExcel(dlg.FileName,
"采购单") \'保存文件 Tables("采购明细").SaveExcel(dlg.FileName,
"采购明细") \'保存文件 End If 把代码里面的名称改成你的表的名称就可以了 |
-- 作者:youngk -- 发布时间:2014/8/6 15:09:00 -- 怎么现在我合并数据就会出问题呢?是不是新的版本的问题啊
|