度量快速开发平台-专业、快速的软件定制快开平台

标题: 网格部件导入功能——处理导入数据 [打印本页]

作者: caixuqad 时间: 2020-4-10 18:14

作者: 刘亚东 时间: 2020-5-3 14:33
标题: 网格部件导入功能——处理导入数据
很多人做导入功能的时候只是用了平台的智能向导，添加导入Excel的方法网格部件1.ImportExcel()，但是这样是远远不够的，这个只是加载Excel的数据到网格部件中，其实这些数据不是所有的都瞒住我们的要求，比如空数据，重复数据，重复数据有分为，本网格的重复，与数据库的重复，等等，一些列不满足的条件，都需要我们自己去去掉，
下面就是一个导入过后处理数据的例子：

'导入Excel
网格部件1.ImportExcel()

'不满足条件的数据条数
dim count=0

dim newdt=网格部件1.DataTable
'去掉工号为空的
dim rows=newdt.Select("工号 is null or 工号='' or 科室编码 is null or 科室编码=''")
for each dr1 in rows
newdt.Rows.Remove(dr1)
count=count+1
next
'去掉本界面工号重复的
for each dr2 in newdt.Copy().Rows
rows=newdt.Select("工号='"+dr2["工号"]+"'")
if rows.Length>1 then
for i=0 to rows.Length-2
newdt.Rows.Remove(newdt.Select("ID='"+rows[i]["ID"]+"'")[0])
count=count+1
next
end if
next
'去掉与数据库中编码重复的
dim dbdt=ExecuteSelect("select ID,工号 from HR_人员档案")
for each dr3 in dbdt.Rows
rows=newdt.Select("工号='"+dr3["工号"]+"'")
if rows.Length>0 then
for i=0 to rows.Length-1
newdt.Rows.Remove(newdt.Select("ID='"+rows[i]["ID"]+"'")[0])
count=count+1
next
end if
next
'生成拼音码
for each dr4 in newdt.Rows
dr4["拼音码"]=PinYinHead(dr4["姓名"])
next

ShowInformation("自动去除不符合条件数据:"&count&"条")

作者: 刘亚东 时间: 2020-5-3 14:33
这样的导入功能才能用，

作者: 王爱东 时间: 2020-5-3 14:49
是的。不然导入一堆有问题的数据，一个一个修改还麻烦。导入之前必须要有数据清洗的过程。

作者: 万望 时间: 2020-5-3 17:08
保存前添加必要验证是必须滴，保证数据的可用性