以文本方式查看主题

-  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=123214)

--  作者:susu312
--  发布时间:2018/8/10 8:24:00
--  交叉统计的精简版的实现

老师

 

1、表格里面最多让增加3行

2、交叉统计窗口的条件是怎么实现的?

3、垂直分组统计模式那里,,_{0}可以不让用户输入么,


--  作者:有点甜
--  发布时间:2018/8/10 8:50:00
--  

1、自动增加行那里,判断一下 e.table.rows.count

 

或者beforeadddatarow事件判断 e.datatable.datarows.count

 

2、直接填写条件就可以啊

 

3、可以啊,判断一下 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=123138&replyID=828547&skin=1

 


--  作者:susu312
--  发布时间:2018/8/10 15:32:00
--  
以下是引用有点甜在2018/8/10 8:50:00的发言:

1、自动增加行那里,判断一下 e.table.rows.count

 

或者beforeadddatarow事件判断 e.datatable.datarows.count

 

2、直接填写条件就可以啊

 

3、可以啊,判断一下 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=123138&replyID=828547&skin=1

 


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

 

老师,红色那里一写入字段,统计类型就输入记录数,这个咋实现呀


--  作者:狐狸爸爸
--  发布时间:2018/8/10 15:33:00
--  
非数值列只能统计记录数
--  作者:狐狸爸爸
--  发布时间:2018/8/10 15:40:00
--  
帮助里头用菜单设计做了一个精简版:
http://www.foxtable.com/webhelp/scr/1141.htm

--  作者:有点甜
--  发布时间:2018/8/10 15:45:00
--  
以下是引用susu312在2018/8/10 15:32:00的发言:


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

 

老师,红色那里一写入字段,统计类型就输入记录数,这个咋实现呀

 

1、你需要分组统计的表,用变量 vars("表") 保存

 

2、datacolchanged写代码

 

If e.DataCol.name = "统计列" Then
 
    Dim t As Table = Tables(vars("表"))
   
    If t.cols.contains(e.newvalue) Then
        If t.cols(e.newvalue).IsNumeric Then
            e.DataRow("统计类型") = "记录数"
        End If
    End If
   
End If


--  作者:susu312
--  发布时间:2018/8/10 17:36:00
--  
以下是引用有点甜在2018/8/10 15:45:00的发言:

 

1、你需要分组统计的表,用变量 vars("表") 保存

 

2、datacolchanged写代码

 

If e.DataCol.name = "统计列" Then
 
    Dim t As Table = Tables(vars("表"))
   
    If t.cols.contains(e.newvalue) Then
        If t.cols(e.newvalue).IsNumeric Then
            e.DataRow("统计类型") = "记录数"
        End If
    End If
   
End If

If e.DataCol.name = "统计列" Then
    Dim t As Table = Tables("person")
    If t.cols.contains(e.newvalue) Then
        If t.cols(e.newvalue).IsNumeric Then
            e.DataRow("统计类型") = "人数"
        End If
    End If
End If

 

老师,我只有一个表需要统计了,然后代码是这么写的,但是并没有效果?不知为啥


--  作者:有点蓝
--  发布时间:2018/8/10 20:15:00
--  
重置统计列