各位老师,人事类项目中有一个表,通过窗口导出按钮导出,然后再导入,发现总是比原表少了一行,经反复试验,发现少的是同一行,把这一行从原表删除再导出导入,就不会出现上述问题。最后发现是因为身份证号的原因,把身份证号改一个数字就不会被删除了。可是这个身份证号是真实的、正确的。请各位老师看一下,是我写的代码有问题,还是系统的问题。导出代码是:
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编辑过]