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编辑过]
加好友 
发短信
Post By：2023/11/8 10:08:00 [只看该作者]
