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


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

主题：二个表之间数据
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		二个表之间数据  发帖心情 Post By：2023/11/8 10:08:00 [只看该作者]

1、根据一个表的“标准名称”列的值中招标编号对应的“内容”去查找另一个表中是否存在这个招标编号，如没有，则增加一行
2、一个表的“标准名称”列的值与另一个表的表列名相同，则把内容复制过去
下面代码如何调整，谢谢
For Each dc As DataCol In DataTables("招标信息1").DataCols
    For Each r As Row In Tables("招标信息预录").Rows
        Dim fdr As DataRow = DataTables("招标信息1").Find("招标编号 = '" &  & "'")
        If fdr Is Nothing Then
            Dim ndr As DataRow = DataTables("招标信息1").AddNew()
            If r("标准名称") = dc.Name
                ndr(dc.Name) = r("内容")
            End If
        End If
    Next
Next


图片点击可在新窗口打开查看此主题相关图片如下：166.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：1699408919799.jpg
图片点击可在新窗口打开查看







[此贴子已经被作者于2023/11/8 10:09:25编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/8 10:16:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2023/11/8 10:20:00 [只看该作者]

关键是这个表达式写不出来，请指教
Dim fdr As DataRow = DataTables("招标信息1").Find("招标编号 = '" &  & "'")

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


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/8 10:26:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2023/11/8 10:55:00 [只看该作者]

蓝老师：
我要先判断这个招标编号对就的“内容”数据在“招标信息1”表中是否存在？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:二个数据表.table
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2023/11/8 11:17:00 [只看该作者]

老师不对的，我的需求是根据"招标编号"这个“A3301010060520085001221”唯一值判断，还有按上面代码出现增加多项，我只要一行
Dim fdr As DataRow = DataTables("招标信息1").Find(r("标准名称") & " = '" & r("内容") & "'")
这个是多值判断了


图片点击可在新窗口打开查看此主题相关图片如下：1699413538271.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2023/11/8 11:18:26编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：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.08984 秒, 5 次数据查询