Foxtable(狐表) → 用户栏目 → 专家坐堂 → Datacolchanged代码问题求助！！！


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

主题：Datacolchanged代码问题求助！！！
帅哥哟，离线，有人找我吗？
身份不明
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00 		  发帖心情 Post By：2014/8/18 19:19:00 [只看该作者]

求解。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/18 19:22:00 [只看该作者]

 看你的图，你是需要添加一列工资列，然后显示工资吗？

 

 还是其他？你做个小例子上来说明
 回到顶部
帅哥哟，离线，有人找我吗？
身份不明
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00 		  发帖心情 Post By：2014/8/19 8:28:00 [只看该作者]

图片点击可在新窗口打开查看

是的，甜老师，我是通过窗口中的统计按钮统计出的结果，想在后面加一列工资列，统计的条件是如下面的代码：

If e.DataCol.name="总印次" Then
     If e.DataRow(e.DataCol.name)<70000 Then
         e.DataRow("工资")=e.DataRow("总印次")/70000 * e.DataRow("总印次") * 26 / 10000
     Else If e.DataRow(e.DataCol.name)>=70000 Then
         e.DataRow("工资")=((e.DataRow("总印次") - 70000) * 26 * 1.5 + 70000 * 26 ) / 10000
     End If
End If
我知道可以增加工资列，可以不知道如何把统计的条件写带统计按钮中！
 回到顶部
帅哥哟，离线，有人找我吗？
身份不明
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00 		  发帖心情 Post By：2014/8/19 8:28:00 [只看该作者]

窗口中的统计代码如下：

Dim g As New GroupTableBuilder("统计表1", DataTables("平张4开机工价"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("人员")
g.Totals.AddDef("总印次", "总印次/天")
g.SubTotal = True
g.FromServer = True
g.Build()
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/19 9:27:00 [只看该作者]

在后面加入代码

 

DataTables("统计表1").DataCols.Add("工资", Gettype(Double))

For Each dr As DataRow In DataTables("统计表1").DataRows
    If dr("总印次/天")<70000 Then
        dr("工资")=dr("总印次")/70000 * dr("总印次/天") * 26 / 10000
    Else If dr("总印次/天")>=70000 Then
        dr("工资")=((dr("总印次/天") - 70000) * 26 * 1.5 + 70000 * 26 ) / 10000
    End If
Next

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


加好友 发短信
等级：一尾狐 帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00 		  发帖心情 Post By：2014/8/19 13:05:00 [只看该作者]

以下是引用有点甜在2014-8-19 9:27:00的发言：

在后面加入代码

 

DataTables("统计表1").DataCols.Add("工资", Gettype(Double))

For Each dr As DataRow In DataTables("统计表1").DataRows
    If dr("总印次/天")<70000 Then
        dr("工资")=dr("总印次")/70000 * dr("总印次/天") * 26 / 10000
    Else If dr("总印次/天")>=70000 Then
        dr("工资")=((dr("总印次/天") - 70000) * 26 * 1.5 + 70000 * 26 ) / 10000
    End If
Next

甜老师，您看我我的代码：统计后还是没有显示工资的信息。
e.Form.Controls("Table1").Visible = True
Dim g As New GroupTableBuilder("统计表1", DataTables("平张4开机工价"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("人员")
g.Totals.AddDef("总印次", "总印次/天")
g.SubTotal = True
g.FromServer = True
g.Build()
Tables("平张机4开工资直接统计_Table1").DataSource = g.BuildDataSource()
DataTables("统计表1").DataCols.Add("工资", Gettype(Double))
For Each dr As DataRow In DataTables("统计表1").DataRows
    If dr("总印次/天")<70000 Then
        dr("工资")=dr("总印次")/70000 * dr("总印次/天") * 26 / 10000
    Else If dr("总印次/天")>=70000 Then
        dr("工资")=((dr("总印次/天") - 70000) * 26 * 1.5 + 70000 * 26 ) / 10000
    End If
Next
 


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/19 14:08:00 [只看该作者]

e.Form.Controls("Table1").Visible = True
Dim g As New GroupTableBuilder("统计表1", DataTables("平张4开机工价"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("人员")
g.Totals.AddDef("总印次", "总印次/天")
g.SubTotal = True
g.FromServer = True
g.Build()

DataTables("统计表1").DataCols.Add("工资", Gettype(Double))
Tables("平张机4开工资直接统计_Table1").DataSource = g.BuildDataSource()
For Each dr As DataRow In DataTables("统计表1").DataRows
    If dr("总印次/天")<70000 Then
        dr("工资")=dr("总印次")/70000 * dr("总印次/天") * 26 / 10000
    Else If dr("总印次/天")>=70000 Then
        dr("工资")=((dr("总印次/天") - 70000) * 26 * 1.5 + 70000 * 26 ) / 10000
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
身份不明
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00 		  发帖心情 Post By：2014/8/19 14:47:00 [只看该作者]

以下是引用有点甜在2014-8-19 14:08:00的发言：

e.Form.Controls("Table1").Visible = True
Dim g As New GroupTableBuilder("统计表1", DataTables("平张4开机工价"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("人员")
g.Totals.AddDef("总印次", "总印次/天")
g.SubTotal = True
g.FromServer = True
g.Build()

DataTables("统计表1").DataCols.Add("工资", Gettype(Double))
Tables("平张机4开工资直接统计_Table1").DataSource = g.BuildDataSource()
For Each dr As DataRow In DataTables("统计表1").DataRows
    If dr("总印次/天")<70000 Then
        dr("工资")=dr("总印次")/70000 * dr("总印次/天") * 26 / 10000
    Else If dr("总印次/天")>=70000 Then
        dr("工资")=((dr("总印次/天") - 70000) * 26 * 1.5 + 70000 * 26 ) / 10000
    End If
Next

甜老师，这样统计后还是没有工资的结果，和上面的图片统计的内容一样！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/19 15:13:00 [只看该作者]

不可能

 

e.Form.Controls("Table1").Visible = True
Dim g As New GroupTableBuilder("统计表1", DataTables("平张4开机工价"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("人员")
g.Totals.AddDef("总印次", "总印次/天")
g.SubTotal = True
g.FromServer = True
g.Build()

'DataTables("统计表1").DataCols.Add("工资", Gettype(Double))
Tables("平张机4开工资直接统计_Table1").DataSource = g.BuildDataSource()

Tables("平张机4开工资直接统计_Table1").DataTable.DataCols.Add("工资", Gettype(Double))
For Each dr As DataRow In DataTables("统计表1").DataRows
    If dr("总印次/天")<70000 Then
        dr("工资")=dr("总印次")/70000 * dr("总印次/天") * 26 / 10000
    Else If dr("总印次/天")>=70000 Then
        dr("工资")=((dr("总印次/天") - 70000) * 26 * 1.5 + 70000 * 26 ) / 10000
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
身份不明
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00 		  发帖心情 Post By：2014/8/19 17:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：123.jpg
图片点击可在新窗口打开查看
甜老师，工资列可以出来，但是无法显示出工资的统计结果！工资列是空白的！而且也没有报错，是什么问题啊！

 回到顶部
总数 21 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询