If e.Row("变动类型") = "1.新增" Then
Dim drs As List(of DataRow) = e.Row.DataRow.GetChildRows("变动明细表")
For Each dr As DataRow In drs
If dr.IsNull("变动类型") Or dr.IsNull("调入单位") Or dr.IsNull("姓名") Or dr.IsNull("身份证号") Or dr.IsNull("供给性质") Or dr.IsNull("变动原因") Or dr.IsNull("工资基数") Or dr.IsNull("起始月份") Or dr.Isnull("结束月份") Or dr.IsNull("备注") Then
MessageBox.Show("★录入项目不全(或结束日期未改动)! ★请补全录入项目!","提示")
Else
For Each dri As DataRow In DataTables("基本信息").Select("身份证号 = '" & dr("身份证号") & "' And 单位 = '" & left(dr("调入单位"),6) & "'")
If dri IsNot Nothing Then
MessageBox.Show("★原表中已存在此人员! ★请检查注意重复!","提示")
Return
Else
dri = DataTables("基本信息").AddNew()
dri("状态") = "已审核"
dri("单位") = left(dr("调入单位"),6)
dri("姓名") = dr("姓名")
dri("性质") = dr("供给性质")
dri("身份证号") = dr("身份证号")
dri("职工账号") = dr("公积金账号")
dri("确认") = 1
dri("补拨补扣上年") = dr("补拨补扣上年")
dri("上年12月份工资") = dr("工资基数")
dri("起始月份") = dr("起始月份")
dri("结束月份") = 12
dri("备注") = dr("备注")
dri.Locked = True
DataTables("基本信息").Save()
End If
Next
For Each dra As DataRow In DataTables("基本信息").Select("身份证号 = '" & dr("身份证号") & "' And 单位 = '" & left(dr("调入单位"),6) & "'")
dr("月补助数_合计") = dra("基数")
dr("月补助数_单位负担") = dra("月缴基数")
Next
dr.Locked = True
Dim prs As DataRow = dr.GetParentRow("变动表")
prs("执行") = "√"
End If
Next
End If
加好友 
发短信
Post By：2017/4/17 19:01:00 [显示全部帖子]
