以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并excel文件，如何添加合并信息提示代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93410)
--  作者：misamisali
--  发布时间：2016/11/28 11:54:00
--  合并excel文件，如何添加合并信息提示代码
如题:
在功能区设置一个 “标准按钮”，代码如下：
Forms("考勤统计").open()
MainTable = Tables("考勤统计表")

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel"
    mg.SourceTableName = "sheet1$"
    mg.DataTableName = "考勤统计表"
    mg.Merge()
End If

每次点击导入后，不晓得导入了多少条数据：
问题一：请问怎么添加代码提示共添加了多少数据。
问题二：每次如果导入错误了，想撤销，要怎么设置按钮和代码吗？
--  作者：misamisali
--  发布时间：2016/11/28 13:37:00
--  
没人顶？
--  作者：有点色
--  发布时间：2016/11/28 13:46:00
--  

1、

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim count As Integer = DataTables("考勤统计表").datarows.count
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel"
    mg.SourceTableName = "sheet1$"
    mg.DataTableName = "考勤统计表"
    mg.Merge()
    msgbox(DataTables("考勤统计表").datarows.count - count)
End If
--  作者：有点色
--  发布时间：2016/11/28 13:47:00
--  
2、 DataTables("考勤统计表").RejectChanges
--  作者：misamisali
--  发布时间：2016/11/28 14:08:00
--  
非常感谢，能用的。