以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  逻辑列用SQLGroupTableBuilder要怎么写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144276)

--  作者:keli0917
--  发布时间:2019/12/16 10:43:00
--  逻辑列用SQLGroupTableBuilder要怎么写

比如收款登记表A里有一个逻辑列:已收款

当已收款列的值全部为真时,统计表里的已收款列设为真,否则设为假。

用SQLGroupTableBuilder应该怎么表示?

cb.Totals.AddExp

 


--  作者:有点蓝
--  发布时间:2019/12/16 10:49:00
--  
这种只能在生成统计表后使用代码处理。具体上传实例说明
--  作者:keli0917
--  发布时间:2019/12/16 12:39:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


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

--  作者:有点蓝
--  发布时间:2019/12/16 13:51:00
--  
Dim g As New SQLGroupTableBuilder("统计表1", "表A")
g.Groups.AddDef("所属地区")
g.Build()
MainTable = Tables("统计表1")

Dim dt As DataTable = DataTables("统计表1")
dt.DataCols.Add("已收款",Gettype(Boolean))
dt.DataCols.Add("收款人",Gettype(String),300)

For Each dr As DataRow In dt.DataRows
    dr("已收款") = (DataTables("表A").Compute("count(已收款)","所属地区=\'" & dr("所属地区") & "\'") = 0)
    dr("收款人") = DataTables("表A").GetComboListString("收款人","所属地区=\'" & dr("所属地区") & "\'").Replace("|",",")
Next

Tables("统计表1").AutoSizeCols