- 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=152201)
-- 发布时间：2020/7/9 12:36:00
-- 窗口表选择数据后状态栏显示合计值
想在 窗口表 选择数据后状态栏自动显示合计值，设置完后无反应，求大神帮忙看看代码哪里出错，谢谢
1.窗口中的AfterLoad 事件代码如下：
Tables("窗口1_Table1").DataSource = DataTables("表A")
2.在窗口1的状态栏增加一个项目，类型为Label，名称为“Stat”
3.窗口表名：Table1 ； 属性：SQLTable ；AfterSelRangeChange 事件代码如下：
If e.Form IsNot Nothing Then
Dim it As Winform.StripItem = e.Form.Strips("状态栏").Items("Stat")
Dim t As Table = e.Table
it.Text = ""
If t.Cols(t.ColSel).IsNumeric Then \'如果当前列是数值列
it.Text = "合计:" & t.Aggregate(AggregateEnum.Sum,t.TopRow,t.ColSel,t.BottomRow,t.ColSel)
End If
End If
求大神帮忙看看，哪里错了，为什么无反应。
-- 发布时间：2020/7/9 12:42:00
--
去掉 If e.Form IsNot Nothing Then 这个if块 试试
-- 发布时间：2020/7/9 13:54:00
--
Dim it As Winform.StripItem = e.Form.Strips("状态栏").Items("Stat")
Dim t As Table = e.Table
it.Text = ""
msgbox(t.Cols(t.ColSel).IsNumeric)
If t.Cols(t.ColSel).IsNumeric Then \'如果当前列是数值列
msgbox(t.Aggregate(AggregateEnum.Sum,t.TopRow,t.ColSel,t.BottomRow,t.ColSel))
it.Text = "合计:" & t.Aggregate(AggregateEnum.Sum,t.TopRow,t.ColSel,t.BottomRow,t.ColSel)
End If
-- 发布时间：2020/7/9 14:13:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
蓝板，帮忙看看不行啊，还是没反应
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.rar |
-- 发布时间：2020/7/9 14:16:00
--
全部都是字符列，字符列无法进行统计
-- 发布时间：2020/7/9 15:06:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
字符改成整数了，也没反应啊
[此贴子已经被作者于2020/7/9 15:22:38编辑过]
-- 发布时间：2020/7/9 15:23:00
--
使用DataSource绑定表的需要导全局表事件处理：http://www.foxtable.com/webhelp/topics/0671.htm
或者改为fill：Tables("窗口1_Table1").Fill("select * from {表A}",False)
-- 发布时间：2020/7/9 17:56:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
蓝板，用这个
fill：Tables("窗口1_Table1").Fill("select * from {表A}",False)
把他加在哪儿呢
-- 发布时间：2020/7/9 19:56:00
--
替换原来窗口afterload的Tables("窗口1_Table1").DataSource = xxxx
-- 发布时间：2020/7/9 21:16:00
--
改完了又出现新问题了