各位老师，人事类项目中有一个表，通过窗口导出按钮导出，然后再导入，发现总是比原表少了一行，经反复试验，发现少的是同一行，把这一行从原表删除再导出导入，就不会出现上述问题。最后发现是因为身份证号的原因，把身份证号改一个数字就不会被删除了。可是这个身份证号是真实的、正确的。请各位老师看一下，是我写的代码有问题，还是系统的问题。导出代码是：
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
dlg.FileName = Format( "zksfxj")
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
FileSys.CopyFile(ProjectPath & "database.mdb",dlg.FileName, True)
Dim ex As New Exporter
ex.SourceTableName = "人员信息表" '指定导出表
ex.filepath = dlg.FileName '指定目标文件
ex.Export() '开始导出
导入代码是：
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" ‘设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.SourceTableName = "人员信息表"
mg.DataTableName = "人员信息表"
mg.Merge()
身份证号码：412724194710066430
[此贴子已经被作者于2018/11/6 22:33:25编辑过]
加好友 
发短信
Post By：2018/11/6 22:30:00 [只看该作者]
