以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  项目买卖  (http://foxtable.net/bbs/list.asp?boardid=23)
----  合并数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=23&id=162200)

--  作者:表叔
--  发布时间:2021/4/8 17:42:00
--  合并数据
 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"
            Dim book As new XLS.Book(dlg.fileName)
            mg.SourceTableName = book.Sheets(0).name & "$"
            mg.DataTableName = "工资数据输入表"
            mg.Merge()
        End If
这是合并代码,excel表中有一列名:身份证号码。希望合并excel数据时跳过身份证号码为空值的行