共8 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：二个表之间数据

1楼

ZJZK2018 发表于：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

此主题相关图片如下：166.jpg

此主题相关图片如下：1699408919799.jpg

[此贴子已经被作者于2023/11/8 10:09:25编辑过]

2楼

有点蓝 发表于：2023/11/8 10:16:00

判断列是否存在：http://www.foxtable.com/webhelp/topics/1428.htm

3楼

ZJZK2018 发表于：2023/11/8 10:20:00

关键是这个表达式写不出来，请指教

Dim fdr As DataRow = DataTables("招标信息1").Find("招标编号 = '" & & "'")

4楼

有点蓝 发表于：2023/11/8 10:26:00

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

5楼

ZJZK2018 发表于：2023/11/8 10:55:00

蓝老师：

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:二个数据表.table

6楼

有点蓝 发表于：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

7楼

ZJZK2018 发表于：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楼

有点蓝 发表于：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

End If

end if

共8 条记录, 每页显示 10 条, 页签: [1]