1、循环每一行拼接内容
Dim drs = e.datatable.select("进场日期=#" & e.datarow("进场日期") & "#", "_Sortkey")
for each dr as datarow in drs
next
2、把拼接的内容,赋值给 drs(0) 行的列即可
drs(0)("某列") = str