Foxtable(狐表) → 用户栏目 → 专家坐堂 → 二个表之间数据


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

主题：二个表之间数据
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/8 10:16:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/8 10:26:00 [显示全部帖子]

判断列名是否存在和这个代码没有任何关系，完全不需要

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/8 11:02:00 [显示全部帖子]

    For Each r As Row In Tables("招标信息预录").Rows
if DataTables("招标信息1").DataCols.contains(r("标准名称"))
        Dim fdr As DataRow = DataTables("招标信息1").Find(r("标准名称") & " = '" & r("内容") & "'")
        If fdr Is Nothing Then
            Dim ndr As DataRow = DataTables("招标信息1").AddNew()
            ndr(r("标准名称") ) = r("内容")
        End If
End If
    Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/8 11:38:00 [显示全部帖子]

dim dr as datarow = dataTables("招标信息预录").find("标准名称='招标编号'")
if dr isnot nothing then
Dim fdr As DataRow = DataTables("招标信息1").Find("招标编号 = '" & dr("内容") & "'")
        If fdr Is Nothing Then
            Dim ndr As DataRow = DataTables("招标信息1").AddNew()
            For Each r As Row In Tables("招标信息预录").Rows
if DataTables("招标信息1").DataCols.contains(r("标准名称"))
ndr(r("标准名称") ) = r("内容")
end if
next
        End If
end if
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询