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


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

主题：[求助]按“月工资”表的指定条件从“年度工资”表中汇总数据的代码
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107670 积分：547671 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/9 22:33:00 [只看该作者]

If Tables("薪资计算表").current Is Nothing Then Return
Dim Bzcq As String = Tables("薪资计算表").current("标准出勤")   '声明变量初值为"薪资计算表"的"标准出勤"
msgbox(Bzcq)
Dim Cqts As String  =  e.sender.value         '声明变量初值为窗口"出勤天"数值组合框(检验变量值"msgbox(Ssqj)")
If Cqts > Bzcq Then
    MessageBox.Show("  你输入的【出勤天数】大于本月【标准出勤 " & Bzcq & " 天】, 请重新输入!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
    Return
End If
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107670 积分：547671 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/9 23:02:00 [只看该作者]

e.sender.value = nothing

 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
总数 15 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询