以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数据表《员工入职更新》批量引用更新到数据表《员工信息》代码!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33413)

--  作者:lipiti
--  发布时间:2013/5/17 15:38:00
--  [求助]数据表《员工入职更新》批量引用更新到数据表《员工信息》代码!
[求助]数据表《员工入职更新》批量引用更新到数据表《员工信息》代码
高手们帮忙看看有什么问题?谢谢!

For Each dr As DataRow In DataTables("员工入职更新").DataRows
    If DataTables("员工信息").Find("员工编号=\'" & dr("员工编号") & "\'") Is Nothing Then
        If dr("更新日期")= Date.Today Then
            Dim dr2 As DataRow = DataTables("员工信息").AddNew
            dr2("档案编号")=dr("档案编号")
            dr2("核算人数")=dr("核算人数")
            dr2("身份证有效期")=dr("身份证有效期")
            dr2("民族")=dr("民族")
            dr2("学历")=dr("学历")
            dr2("政治面貌")=dr("政治面貌")
            dr2("婚姻状况")=dr("婚姻状况")
            dr2("生育状况")=dr("生育状况")
        End If
    End If
Next


[此贴子已经被作者于2013-5-17 17:32:50编辑过]

--  作者:XYT
--  发布时间:2013/5/17 15:43:00
--  

怎么把筛选嵌套到循环里面啊http://www.foxtable.com/help/topics/1453.htm

看清楚帮助


--  作者:lipiti
--  发布时间:2013/5/17 16:25:00
--  
我们需要 窗口按钮_Click事件 来实现把数据表《员工入职更新》引用到数据表《员工信息

--  作者:lipiti
--  发布时间:2013/5/17 17:30:00
--  
参考 Bin 14楼的代码

点了窗口按钮_Click事件 没有把数据引用过去。

--  作者:Bin
--  发布时间:2013/5/17 17:31:00
--  
例子发出来看看.
--  作者:XYT
--  发布时间:2013/5/17 17:34:00
--  
那你是什么情况,没成功还是错误,你也说下啊
--  作者:lipiti
--  发布时间:2013/5/17 18:00:00
--  
 Bin  非常热心,三次远程帮我们解决了所有问题,每次解决好了,又有新需求提出,他总是很耐心帮我们谢谢!
--  作者:lipiti
--  发布时间:2013/5/17 18:12:00
--  
这个是  Bin  写的代码,代他发出来,分享给有需要的朋友:

For Each dr As DataRow In DataTables("员工入职更新").DataRows
    Dim dr2 As DataRow =DataTables("员工信息").Find("员工编号=\'" & dr("员工编号") & "\'")
    If dr2 IsNot Nothing Then
        If dr("更新日期")= Date.Today Then
            dr2("档案编号")=dr("档案编号")
            dr2("核算人数")=dr("核算人数")
            dr2("身份证有效期")=dr("身份证有效期")
            dr2("民族")=dr("民族")
            dr2("学历")=dr("学历")
            If dr2.Isnull("政治面貌") Then
                dr2("政治面貌")=dr("政治面貌")
            End If
            dr2("婚姻状况")=dr("婚姻状况")
            dr2("生育状况")=dr("生育状况")
        End If
    End If
Next