以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助:跨表统计结果赋值到指定单元格问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=174796)

--  作者:xnsiwei
--  发布时间:2022/2/6 15:22:00
--  求助:跨表统计结果赋值到指定单元格问题
1.Dim Products As List(Of String) = DataTables("nw7").SQLGetValues("clssmc") \'统计市镇村污水处理设施数量
msgbox(Products.count)
名令窗口执行没问题,但如何把结果放到指定单元格内呢?

2.为了做一个大数据展示窗口,专门设置了一个表汇总统计相关表的统计数据,但跨表统计结果赋值到指定单元格?
3.其中下面这个代码能帮改改吗?

If e.DataCol.Name = "展示名称" Then
    Dim pr As DataRow
    If pr("展示名称") = "生活污水处理设施(座)" Then
        Dim Products As List(Of String) = DataTables("nw7").SQLGetValues("clssmc") \'统计市镇村污水处理设施数量
        pr("污水处理设施") = msgbox(Products.count)
    End If
End If

[此贴子已经被作者于2022/2/6 15:28:37编辑过]

--  作者:有点蓝
--  发布时间:2022/2/7 8:33:00
--  
If e.DataCol.Name = "展示名称" Then
    Dim pr As DataRow = e.datarow
    If pr("展示名称") = "生活污水处理设施(座)" Then
        Dim Products As List(Of String) = DataTables("nw7").SQLGetValues("clssmc") \'统计市镇村污水处理设施数量
        pr("污水处理设施") = Products.count
    End If
End If

--  作者:xnsiwei
--  发布时间:2022/2/7 13:48:00
--  
非常感谢