Foxtable(狐表)用户栏目专家坐堂 → 现有数据表行,为统计需要,需要将按照表C第一列的大类 去查找数据表中的数据 数据表中的单位 对应表c的第一列 然后新增第一列的数据行 将所有属于第一列的 进行相关统计 要怎么写代码呢?


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

主题:现有数据表行,为统计需要,需要将按照表C第一列的大类 去查找数据表中的数据 数据表中的单位 对应表c的第一列 然后新增第一列的数据行 将所有属于第一列的 进行相关统计 要怎么写代码呢?

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
现有数据表行,为统计需要,需要将按照表C第一列的大类 去查找数据表中的数据 数据表中的单位 对应表c的第一列 然后新增第一列的数据行 将所有属于第一列的 进行相关统计 要怎么写代码呢?  发帖心情 Post By:2022/10/10 14:22:00 [只看该作者]

现有数据表行,为统计需要,需要将按照表C第一列的大类  去查找数据表中的数据   数据表中的单位  对应表c的第一列 

然后新增第一列的数据行   将所有属于第一列的  进行相关统计 

要怎么写代码呢?


图片点击可在新窗口打开查看此主题相关图片如下:321.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:107739 积分:548028 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/10 14:55:00 [只看该作者]

for each s as string in datatables("表C").getvalues("第一列")
dim dr1 as datarow = datatables("表C").find("第一列='" & s & "'","_sortkey desc")
dim i as integer = tables("表C").findrow(dr1)
dim r as row
if i < tables("表C").rows.count - 1 then
tables("表C").position = i+1
r = tables("表C").insertnew
else
r = tables("表C").addnew
end if
r("第一列") = s
r("xx数量") = datatables("表xx").compute("sum(xx数量)”,"单位 in ('" & datatables("表C").getcombostring("第二列","第一列='" & s & "'").replace("|","','") & "')")
next

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)for each s as string in datatables...  发帖心情 Post By:2022/10/12 9:05:00 [只看该作者]

老师  当前代码如下:初步完成了计算   想在请教一下  怎么让审查调查情况一览表2里面的数据行   按照单位=表c中第一列的顺序进行排序呢?

 

当前代码如下:
DataTables("审查调查情况一览表2").DeleteFor("")
For Each s As String In DataTables("表C").getvalues("第一列")
    Dim dr1 As DataRow = DataTables("表C").find("第一列='" & s & "'","_sortkey desc")
    Dim i As Integer = Tables("审查调查情况一览表2").findrow(dr1)
    Dim r As Row
    If i < Tables("审查调查情况一览表2").rows.count - 1 Then
        Tables("审查调查情况一览表2").position = i+1
        r = Tables("审查调查情况一览表2").insertnew
    Else
        r = Tables("审查调查情况一览表2").addnew
    End If
    r("单位") = s
    For Each dc As DataCol In DataTables("审查调查情况一览表2").datacols
        If dc.name<>"单位" Then
            r(dc.name) = DataTables("审查调查情况一览表").sqlcompute("sum(" & dc.name & ")","单位 in ('" & DataTables("表C").GetComboListString("第二列","第一列='" & s & "'").replace("|","','") & "')")
        End If
    Next
Next

 

[此贴子已经被作者于2022/10/12 9:06:42编辑过]

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


加好友 发短信
等级:超级版主 帖子:107739 积分:548028 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/12 9:09:00 [只看该作者]

For Each s As String In DataTables("表C").getvalues("第一列","_sortkey")

 回到顶部