网格部件导入功能——处理导入数据

刘亚东

很多人做导入功能的时候只是用了平台的智能向导，添加导入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&"条")

caixuqad

万望

能将重复的数据复制到另一个窗体以便导出查询吗？

万望

刘亚东 发表于 2015-12-3 18:05
这个你懂了。。。哈哈

你这是作弊啊，我操

刘亚东

陈晓龙 发表于 2015-12-4 13:35
这导入功能，很完美呀！

陈晓龙

这导入功能，很完美呀！

刘亚东

万望 发表于 2015-12-3 17:08
保存前添加必要验证是必须滴，保证数据的可用性

这个你懂了。。。哈哈

刘亚东

万望 发表于 2015-12-3 17:08
保存前添加必要验证是必须滴，保证数据的可用性

这个你懂了。。。哈哈

刘亚东

万望 发表于 2015-12-3 17:08
保存前添加必要验证是必须滴，保证数据的可用性

这个你懂了。。。哈哈

刘亚东

万望 发表于 2015-12-3 17:08
保存前添加必要验证是必须滴，保证数据的可用性

这个你懂了。。。哈哈