主题：[求助]请问各位大师为什么这个按类别的编号方法当用用代码合并的时候不正常？

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim mg As New Merger

    mg.Format = "excel" '指定格式

    mg.SourcePath = dlg.FileName

    mg.SourceTableName = "sheet1$"

    mg.DataTableName = "小包发货单"

    mg.Merge()

End If

For Each dr As DataRow In DataTables("小包发货单").Select("子编码 IS NULL")

    DataTables("小包发货单").DataCols("编号").RaiseDataColChanged(dr)

Next