- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 汇总后的数据怎么给汇总前的数据赋值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185609)
-- 发布时间：2023/3/5 18:49:00
-- 汇总后的数据怎么给汇总前的数据赋值
现有数据表A ，将表A的数据汇总后复制到表B中，表B的“属性赋值列”人工录入进去数据。 怎样将这个数据 分别 传回表A的属性列。
-- 发布时间：2023/3/5 20:52:00
--
For Each dr1 As DataRow In DataTables("表B").datarows
if dr1 .isnull("属性赋值")=false
For Each s as string in dr1 ("属性赋值").split("|")
Dim dr2 As DataRow = DataTables("表A").find("姓名=‘" & dr1 ("姓名") & "’ and 物品=‘" & dr1 ("物品") & "’ and 属性 is null")
Dim dr2 As DataRow = DataTables("表A").find("姓名=‘" & dr1 ("姓名") & "’ and 物品=‘" & dr1 ("物品") & "’ and 属性 is null")
if dr2 isnot nothing then
dr2("属性") = s
end if
Next
Next
Next