-- 作者:cnsjroom
-- 发布时间:2022/9/14 17:37:00
-- 怎么实现根据编码guid=guid,然后把guid符合条件的字段值全部赋值给编码guid=guid的数据行中
同一个表中,有两个不同的记录方式,guid有值的行 会有一个guid为空且编码guid=guid的数据行
怎么实现根据编码guid=guid,然后把guid符合条件的字段值全部赋值给编码guid=guid的数据行中
此主题相关图片如下:12.png
当前代码如下:【运行后没有达到预期,是把第一行数据全部复制到所有的行了,要逐行复制!】
Dim Products As List(Of String) Products = DataTables("sys_numbering").GetValues("编码guid") For Each Product As String In Products Dim bb As DataRow =DataTables("sys_numbering").find("guid=\'"& Product &"\'") If bb IsNot Nothing Then For Each r As DataRow In DataTables("sys_numbering").dataRows For Each dc As DataCol In DataTables("sys_numbering").DataCols If dc.name="创建日期" Or dc.name="编辑日期" Or dc.name="类型" Or dc.name="前缀" Or dc.name="顺序号" Or dc.name="编码guid" Then \'output.show(2) Else For i As Integer = 0 To DataTables("sys_numbering").DataRows.Count - 1 output.show(i) r(dc.name)= bb(dc.name) Next End If Next Next End If Next 此主题相关图片如下:123.png
[此贴子已经被作者于2022/9/14 18:58:26编辑过]
|