主题：求助，合并数据后，数据库茫茫多的空行

Dim dlg As New OpenFileDialog

dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" 

If dlg.ShowDialog = DialogResult.Ok Then

    

    MessageBox.Show("你选择的是:" & dlg.FileName,"提示")

    If MessageBox.Show("是否合并?","请确 认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then

        Dim mg As New Merger

        mg.SourcePath = dlg.FileName

        mg.Format = "excel" 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:普机班组.xls

        mg.SourceTableName = "生产课作业工时记录$" 

        mg.DataTableName = "生产作业"

        mg.Merge()

        MessageBox.Show("合并成功!")

        DataTables("生产作业").Save

    Else

        Return

    End If

End If