Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计问题


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

主题：统计问题
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/3/11 18:30:00 [只看该作者]

继续您上面的的程序该如何写代码？

 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/3/11 18:49:00 [只看该作者]

老师好，新增加一个问题，我需要将表daytj的日期列的值放到表Dayresult的日期列里，继续您上面的的程序
该如何写代码?这两个表的行数不一样。
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/3/12 9:54:00 [只看该作者]

老师好，我知道怎么处理了。用获取日历的值的办法间接解决的。

 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/3/12 23:43:00 [只看该作者]

老师好，麻烦您查查下面红色代码，下面程序编译通过，但运行报错，提示：从字符串“[Category] = 'Acquisition'”到类型“Long”的转换无效。我发现如果去掉And和And以后的代码，程序运行就没问题。请问如何更改? 谢谢！
Dim dttimebkds As DataTable = DataTables("TimingDiary")  
Dim Str1,Str2 As List(Of String)
Str1= dttimebkds.GetValues("Category")
Dim dt2timebkds As DataTable = DataTables("TimingBreakdownSummary")
Dim drtimebkds As DataRow    
Dim iii,jjj As Integer
For iii=0 To Str1.count-1
drtimebkds  = dt2timebkds.AddNew()
drtimebkds ("Category") = Str1(iii)
Dim cc As Double = dttimebkds.Compute("Sum(Duration)", "[Category] = '" & Str1(iii) & "'" And "[Block]='"& selectednodename &"'")'
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/13 0:23:00 [只看该作者]

 

Dim cc As Double = dttimebkds.Compute("Sum(Duration)", "[Category] = '" & Str1(iii) & "' And [Block]='" & selectednodename & "'")
 
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/3/13 10:02:00 [只看该作者]

老师好，我按照帮助里的要求设置好状态栏，用帮助里的代码希望实现在某个表选择某数值列的多个单元格后，能在状态栏右侧显示合计值，在AfterSelRangeChange事件加入下面的代码，运行提示错误：给定关键字不在字典中。请问怎么纠正？谢谢!

If Forms("MainWindow") IsNot Nothing Then
    Dim it As Winform.StripItem = Forms("MainWindow").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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106689 积分：542640 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/13 11:05:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/3/13 11:44:00 [只看该作者]

老师好，我测试了下面的代码，不在提示错误，但是在鼠标选完某列的几行数据后不给出这些行求和结果，只给出选定的第一行，这是为什么？难道这个表事件不起作用？

If Forms("MainWindow") IsNot Nothing Then
    Dim it As Winform.StripItem = Forms("MainWindow").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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106689 积分：542640 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/13 14:35:00 [只看该作者]

测试没有问题，上例子看看

 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2017/3/13 15:58:00 [只看该作者]

老师好，文件在附件，实在是不知道如何更改。谢谢老师
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目tbkds.zip
 回到顶部
总数 66 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询