Dim Val As string
Val= e.Form.Controls("单位名称").Value
if Val = "" then
MessageBox.Show("你未选择需要读入数据的单位!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
if Val > "" AndAlso DataTables("人事工资管理").Select("[单位名称] = '" & val & "'").Count > 0 then
if Val > "" AndAlso DataTables("调资基础数据").Select("[单位名称] = '" & val & "'").Count > 0 then
if MessageBox.Show("已存在相同单位记录,是否删除?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes then
Forms("删除指定单位数据").Open()
Else
Return
End if
Else
dim f As New Filler
f.SourceTable = DataTables("人事工资管理") '指定数据来源
f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据来源列
f.DataTable = DataTables("调资基础数据") '指定数据接收表
f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据接收列
f.ExcludeExistValue = "true"
f.ExcludeNullValue = "true"
With e.Form.Controls("单位名称")
If .Value IsNot Nothing Then
f.Filter= "[单位名称]= '" & .Value & "'"
Else
End If
End With
f.Distinct = false
f.Fill() '填充数据
DataTables("调资基础数据").DeleteFor("[姓名] Is Null OR [身份证号] Is Null")
MessageBox.Show("原始数据已经读入完成!!!", "提示")
DataTables("审核").DataRows.Clear()
dim ff As New Filler
ff.SourceTable = DataTables("调资基础数据") '指定数据来源
ff.DataTable = DataTables("审核") '指定数据接收表
ff.ExcludeExistValue = true
ff.ExcludeNullValue = true
ff.Fill() '填充数据
For Each dr As DataRow In DataTables("审核").DataRows
dr("审核")=""
If dr("身份证号").Length <> 15 AndAlso dr("身份证号").Length <> 18 Then '判断是否不符合验证要求
dr("审核")="录入身份证号位数错误!!!"
End If
If dr("性别")<> ReadSex(dr("身份证号")) Then
dr("审核")= dr("审核") & Chr(13) & Chr(10) & "录入性别与身份证号性别不符!!!"
End If
If dr("出生时间")<> ReadBirthDay(dr("身份证号")) Then
dr("审核")= dr("审核") & Chr(13) & Chr(10) &"录入出生时间与身份证出生时间不符!!!"
End If
If dr("参加工作时间").Year-dr("出生时间").Year < 15
dr("审核")= dr("审核") & Chr(13) & Chr(10)&"参加工作时间逻辑有误,请核实!!!"
End If
Next
With Tables("审核")
.Select(.RowSel,.cols("身份证号").Index)
Syscmd.Filter.ShowSameValues
End With
For Each dr As DataRow In DataTables("审核").DataRows
If dr("System_Filter_Unique") = 1 Then
dr("审核") = dr("审核") & Chr(13) & Chr(10)&"身份证号码重复,请核实!!!"
End If
Next
CurrentTable.Filter = ""
DataTables("审核").DeleteFor("[审核] Is Null ")
if DataTables("审核").DataRows.Count = 0 Then
MessageBox.Show("在数据转移过程中,未有不符合基本审核限制的数据!!!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Dim Q As String
Q = e.Form.Controls("单位名称").Value
if Q = "" then
Return '终止代码的执行
Else
For Each dr As datarow In datatables("调资基础数据").datarows
if dr("单位名称") = Q then
dr.locked = true
end if
Next
End if
Return '终止代码的执行
else
MessageBox.Show("在数据转移过程中,在原始数据中,存在不符合基本审核限制的数据,请仔细复核!!!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Dim Q As String
Q = e.Form.Controls("单位名称").Value
if Q = "" then
Return '终止代码的执行
Else
For Each dr As datarow In datatables("调资基础数据").datarows
if dr("单位名称") = Q then
dr.locked = true
end if
Next
End if
Dim frm As WinForm.Form
frm = Forms("查看错误提示")
frm.Open()
End If
End If
Else
MessageBox.Show("请认真核对你选择单位的名称和性质,本窗口用于公务员(参公管理)性质单位的人员基础信息读入,你录入的是非公务员(参公管理)单位!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
加好友 
发短信
Post By：2009/9/2 16:51:00 [显示全部帖子]
