Foxtable(狐表)用户栏目专家坐堂 → [求助]如何对记录快速定位并赋值?


  共有4274人关注过本帖树形打印复制链接

主题:[求助]如何对记录快速定位并赋值?

帅哥哟,离线,有人找我吗?
loongtai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:574 积分:4332 威望:0 精华:0 注册:2013/7/26 10:24:00
[求助]如何对记录快速定位并赋值?  发帖心情 Post By:2014/3/2 10:05:00 [只看该作者]

有3个表,表1( 3列:编号/组号1/组内坐标 )、表2(2列:编号/组号2)、表3 ( 3列:组号2/组号1/组内坐标 ),根据表3中的组号2列找到表2中对应的编号,从而将表3中的组号1/组内坐标的数据填充到表1相应的编号行中。
不知这有什么快速的方法?实际项目中的表1中的记录数可能比较多。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据快速定位赋值.zip


[此贴子已经被作者于2014-3-2 10:06:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2014/3/2 11:47:00 [只看该作者]

Dim drs As List(Of DataRow)
Dim dr2 As DataRow
For Each dr As DataRow In DataTables("表3").DataRows
    drs = DataTables("表2").Select("[组号2] = '" & dr("组号2") & "'")
    For Each dr1 As DataRow In drs
        dr2 = DataTables("表1").Find("编号 = '" & dr1("编号") & "'")
        If dr2 IsNot Nothing Then
            dr2("组号1") = dr("组号1")
            dr2("组内坐标") = dr("组内坐标")
        End If
    Next
Next

 回到顶部