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
……其他判断和处理
加好友 
发短信
Post By：2021/7/18 23:17:00 [显示全部帖子]
