Foxtable(狐表)用户栏目专家坐堂 → 怎么实现根据编码guid=guid,然后把guid符合条件的字段值全部赋值给编码guid=guid的数据行中


  共有5898人关注过本帖树形打印复制链接

主题:怎么实现根据编码guid=guid,然后把guid符合条件的字段值全部赋值给编码guid=guid的数据行中

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
怎么实现根据编码guid=guid,然后把guid符合条件的字段值全部赋值给编码guid=guid的数据行中  发帖心情 Post By:2022/9/14 17:37:00 [只看该作者]

同一个表中,有两个不同的记录方式,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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110494 积分:562348 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部