| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]数据表《员工入职更新》批量引用更新到数据表《员工信息》代码！ (http://www.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
|