Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
如何取让变量值DateTimePicker中输入的时间？
Dim d1 as Date
d1= e.Form.Controls("出生时间"). IsDate
Dim d2 as Date
= e.Form.Controls("参加工作时间"). IsDate
Dim A As String
A = e.Form.Controls("单位名称").Value
Dim B As String
B = e.Form.Controls("姓名").Value
Dim C As String
C = e.Form.Controls("身份证号").Value
Dim D As String
D = e.Form.Controls("性别").Value
Dim FF As String
FF = e.Form.Controls("职务").Value
if A = "" then
MessageBox.Show("单位名称不能为空,请录入单位名称以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
if B = "" then
MessageBox.Show("人员姓名不能为空,请录入人员姓名以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
if C = "" then
MessageBox.Show("人员身份证号不能为空,请录入人员身份证号以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
If e.Form.Controls("出生时间").Value Is Nothing then
MessageBox.Show("人员出生时间不能为空,请录入人员出生时间以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
if D = "" then
MessageBox.Show("人员性别不能为空,请录入人员性别以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
If e.Form.Controls("参加工作时间").Value Is Nothing then
MessageBox.Show("人员参加工作时间不能为空,请录入人员参加工作时间以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
if FF = "" then
MessageBox.Show("人员现任职务不能为空,请录入人员现任职务以后再保存!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
If D <> ReadSex(C) then
MessageBox.Show("录入性别和身份证号不符,请核对!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
If d2<=d1 then
MessageBox.Show("参加工作时间不能大于出生时间,请核对!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
ELSE
For Each dt As DataTable In DataTables
dt.Save()
Next
Syscmd.Row.Lock()
End If
END IF
END IF
End if
End if
End if
End if
End if
End if
如何在按钮中实现：
1、Dim drs As List(Of DataRow) = DataTables("人事工资管理").Select("[身份证号] = '" & e.DataRow("身份证号") & "'")
if "身份证号" <>"" and drs.Count - 1 > 0 Then
MessageBox.Show(" 身份证号重复,请核对!!!")
Forms("数据录入窗口").Controls("身份证号").Select()
End If
2、
if e.Datacol.Name = "身份证号" Then
if e.NewValue Isnot Nothing then
Dim d As Date = ReadBirthDay(e.NewValue)
Dim s As String = ReadSex(e.NewValue)
If s ="" then
if s = "" orElse d < #1/1/1900# Then
e.Cancel = False '取消输入
MessageBox.Show("身份证号输入无效,请核对!!!","提示")
e.NewValue = " "
e.DataRow("身份证号") = Nothing
Forms("数据录入窗口").Controls("身份证号").Select()
Return '终止代码的执行
else
Return '终止代码的执行
end if
End If
end If
End If
If D <> ReadSex(C) then
MessageBox.Show("录入性别和身份证号不符,请核对!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
贴图！～～～
|
如何在按钮中实现： |