- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请老师帮我下，学习下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52277)
-- 发布时间：2014/6/12 15:33:00
-- 请老师帮我下，学习下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导入结婚日期.table |
此主题相关图片如下：qq图片20140612153243.jpg
-- 发布时间：2014/6/12 15:39:00
--
如下代码
For Each dr As DataRow In DataTables("表A").DataRows
Dim fdr As DataRow = DataTables("表D").Find("单位名称 = \'" & dr("单位名称") & "\' and 组名称 = \'" & dr("组名称") & "\' and 姓名 = \'" & dr("女方姓名") & "\'")
If fdr IsNot Nothing Then
fdr("变动日期") = dr("结婚日期")
End If
Next
-- 发布时间：2014/6/12 15:40:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:导入结婚日期.table |
-- 发布时间：2014/6/12 15:46:00
--
谢谢。学习中
[此贴子已经被作者于2014-6-12 15:53:30编辑过]