以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问下,数据导出的代码怎么写呢?  (http://www.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
--  

怎么现在我合并数据就会出问题呢?是不是新的版本的问题啊