Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]按“月工资”表的指定条件从“年度工资”表中汇总数据的代码


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

主题：[求助]按“月工资”表的指定条件从“年度工资”表中汇总数据的代码
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		[求助]按“月工资”表的指定条件从“年度工资”表中汇总数据的代码  发帖心情 Post By：2019/4/9 15:40:00 [显示全部帖子]

老师好。新的代码问题，小白请老师帮助。

      就是想：按“月工资”表的【工号“截取后8位” + 姓名】为查找汇总条件，从“年度工资”表中查找符合条件的所有记录，统计“出现的次数”、汇总“养老保险”、“医疗保险”、“住房公积”、“扣个税”四列，将汇总的各列数据和出现次数分别写入“月工资”表的“养老保险”、“医疗保险”、“住房公积”、“扣个税”‘、“计发期数”五列。
请老师帮助。谢谢

[此贴子已经被作者于2019/5/6 17:28:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/9 17:49:00 [显示全部帖子]

谢谢老师。按您的代码已实现我想要的效果。但还是加入“扣个税”这一列的代码【dr("扣个税") = DataTables("年度工资").Compute("Sum(扣个税)",filter)】后还是出错。提示如前。

代码和其它代码一样是复制修改的，但单这一行出错。找不出错误原因，还请老师帮助。谢谢。



[此贴子已经被作者于2019/5/6 17:29:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/9 19:28:00 [显示全部帖子]

甜老师好。下面我这样套改“y2287958”老师的代码对不对。请老师指正。

再就是，总共才100来行数据，代码执行了有3分钟左右，这样正常吗。
再请教老师，能将代码改为在窗口的“按钮”点击事件执行吗。谢谢。


[此贴子已经被作者于2019/5/6 17:30:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/9 20:46:00 [显示全部帖子]

蓝老师好。我已按老师指导将代码放入窗口的按钮中执行，速度就快多了。

再请教老师，我想改为截取最后的11位（我这里的“工号”总长是18位，上面是我写错了），要怎样修改。谢谢老师。
[此贴子已经被作者于2019/5/6 17:31:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/9 21:18:00 [显示全部帖子]

谢谢老师帮助。老师给的代码中的“8,11”，是“从第8位开始截取11位”的意思吗。那原来代码的“11,8”的意思就是“从第11位开始截取8位”的意思了。请老师指教。谢谢

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


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/9 22:17:00 [显示全部帖子]

谢谢老师。请教老师，下面的代码用于窗口数值组合框“NumericComboBox1_Page10" 输入数值的校验，在“数值组合框”的“Validating”事件，但运行出错[找不到名称为"NumericComboBox1_Page10"的控件]，请老师帮助指正。谢谢。

'以下检查输入的"出勤天"是否大于本月"标准出勤"
Dim Bzcq As String = Tables("薪资计算表").current("标准出勤")   '声明变量初值为"薪资计算表"的"标准出勤"
msgbox(Bzcq)
Dim Cqts As String  =  e.Form.Controls("NumericComboBox1_Page10").TEXT         '声明变量初值为窗口"出勤天"数值组合框(检验变量值"msgbox(Ssqj)")
If Cqts > Bzcq Then
    MessageBox.Show("  你输入的【出勤天数】大于本月【标准出勤 " & Bzcq & " 天】, 请重新输入!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
    Return
End If
[此贴子已经被作者于2019/4/9 22:20:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/9 22:42:00 [显示全部帖子]

谢谢老师。想再加一句在提示后清除组合框已输入内容的代码。请老师指导。
[此贴子已经被作者于2019/4/9 22:51:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/9 23:28:00 [显示全部帖子]

谢谢老师。晚安！
[此贴子已经被作者于2019/4/9 23:27:54编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询