醉了，5000条数据处理20分钟 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 醉了，5000条数据处理20分钟

共有3170人关注过本帖树形打印复制链接主题：醉了，5000条数据处理20分钟

xujie80

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：3412 威望：0 精华：0 注册：2015/5/12 15:33:00

醉了，5000条数据处理20分钟 发帖心情

Post By：2016/7/16 22:10:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "身份证号","户主姓名","粮食直补面积","粮食直补标准","粮食直补金额","农资补贴面积","农资补贴标准","农资补贴金额"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("身份证号") Then
        Else
            Dim filter As String
            filter = "身份证号 = '" & dr("身份证号") & "'"
            pr = DataTables("员工资料").Find(filter)
            If pr IsNot Nothing Then
                pr("姓名") = dr("户主姓名")
                pr("户主关系") = "户主"
            End If
        End If
End Select

从当前表复制“姓名”和“户主关系”到“员工资料表”，当前表5000多行，“员工资料”表80000多行，处理要20分钟，肯定是方法问题，求大神指点。