主题：合并数据的问题

从表格导入数据，我采用的是以下方式来执行导入的：Dim mg As New Merger
mg.SourcePath = txt.Text  '指定路径文件
mg.Format = "excel" '指定格式
mg.SourceTableName = "Sheet1$" '指定要合并的表。。。 我想请教一下，在导入时，要遍历给每一条数据添加一个自定义的编号，代码如下： Case "意向客户"
        str = "YXKH"
        mg.DataTableName = str '指定接收数据的表
        mg.Merge() '开始合并
        For Each dr As DataRow In DataTables(str).DataRows
            If dr.RowState=DataRowState.Added Then
                dr("LCMC") = "制订"
                Functions.Execute("导入数据",Tables("YXKH").Current)
            End If
        Next
标红色的语句是自定义编号的函数，但我在执行按钮导时，只有第一行数据有编号，后面的都没有编号，然后发现在导入数据时，这个函数只执行了一次。请教一下是什么原因，是我的代码有问题吗？