以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么实现根据编码guid=guid,然后把guid符合条件的字段值全部赋值给编码guid=guid的数据行中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179863)

--  作者: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编辑过]

--  作者:有点蓝
--  发布时间:2022/9/15 8:38:00
--  
For Each dr As Datarow In DataTables("sys_numbering").select("编码guid is not null and guid is null")
    Dim bb As DataRow =DataTables("sys_numbering").find("guid=\'"& Product &"\'")
    If bb IsNot Nothing Then
dr("xx列1") = bb("xx列1")
dr("xx列2") = bb("xx列2")
……
end if
next