- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]按钮代码完善 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170254)
-- 发布时间：2021/7/18 22:49:00
-- [求助]按钮代码完善
窗口中的确定按钮需要代码完善，以上是窗口与现有代码。希望达到如下要求：
1、当选择“已参加企业社保”时，现有补助标准应小于等于0，当选择“未参加企业社保”时，现补助标准应大于0.
2、当选择“已参加企业社保”时，批复文号可为空，当选择“未参加企业社保”时，批复文号必须有内容。
此主题相关图片如下：捕获11.png
此主题相关图片如下：捕获11.png-- 发布时间：2021/7/18 22:51:00
--
Dim ybz As WinForm.TextBox = e.Form.Controls("原补助标准")
Dim xbz As WinForm.TextBox = e.Form.Controls("现补助标准")
Dim rq As WinForm.DateTimePicker = e.Form.Controls("执行日期")
Dim pzh As WinForm.TextBox = e.Form.Controls("审批编号")
Dim bz As WinForm.TextBox = e.Form.Controls("备注")
If xbz.Value = ybz.Value Then \'若现补助标准与原补助标准的值均相同
MessageBox.Show("补助标准未发生变化!")
ElseIf xbz.Value = "" Then \'若现补助标准未输入内容
MessageBox.Show("未输入现补助标准!")
ElseIf pzh.Value = "" Then \'若审批编号未输入内容
MessageBox.Show("未输入审批编号!")
ElseIf rq.text = "" Then \'若审批编号未输入内容
MessageBox.Show("未输入执行日期!")
Else
Dim r0 As Row = Tables("基础信息").Current
Dim r As Row = Tables("补助标准").AddNew
r("遗属身份证号码") = r0("遗属身份证号码")
r("原补助标准") = r0("月补助标准")
r("现补助标准") = xbz.Value
r("执行日期") = rq.Value
r("审批编号") = pzh.Value
r("备注") = bz.Value
r0("月补助标准") = xbz.Value
e.Form.Close
End If
以上是目前确定按钮代码。
-- 发布时间：2021/7/18 23:17:00
--
Dim xbz As WinForm.TextBox = e.Form.Controls("现补助标准")
If e.Form.Controls("已参加企业社保").checked Then
If val(xbz.text) > 0 Then
MessageBox.Show("当选择"已参加企业社保"时,现有补助标准应小于等于0!")
Return
End If
ElseIf e.Form.Controls("未参加企业社保").checked Then
If val(xbz.text) <= 0 Then
MessageBox.Show("当选择"未参加企业社保"时,现补助标准应大于0!")
Return
End If
Dim pzh As WinForm.TextBox = e.Form.Controls("审批编号")
If pzh = "" Then
MessageBox.Show("当选择"未参加企业社保"时,批复文号必须有内容!")
Return
End If
End If
……其他判断和处理