-- 作者:susu312
-- 发布时间:2018/8/28 14:50:00
--
以下是引用有点甜在2018/8/28 14:40:00的发言:
你多写了一个空格,请认真查看。不然贴出你写的代码。
Dim nums1() As String={"cardID","name","sex","age","birth", _ "tel","jiguan","rational","edu","health", _ "workdate","politicalStatus", "hobbies","retiredPost","title" , _ "address","leaOrRetire", "retireTime","proTecPost","proSpecialty", _ "partyBranch","partyTime", "presonalClass","organName","partyStanding", _ "retiredDep", "guanZhu","jianli"} Dim nums2() As String={"身份证号", "姓名","性别","年龄","出生年月", _ "联系方式","籍贯","民族","学历","健康状况", _ "参加工作日期","政治面貌", "兴趣爱好","离退休职务","享受待遇", _ "地址","状态", "离退休时间","专业技术职务","专业特长", _ "所在党支部", "入党时间", "个人成分","离退休单位","党龄", _ "离退休部门", "纪委关注","简历"}
Dim t As Table = e.Form.controls("table1").Table t.DataTable.DataCols.Add("标记", Gettype(Integer)) \'\'增加标记列 Dim ls As object = t.Rows If ls.count = 0 Then ls = t.Rows Dim dt As DataTable = DataTables("person") For Each r As Row In ls If ValidPIN( r("身份证号") ) =False Then r.DataRow.SetError("身份证号", "身份证号码错误") r.DataRow("标记")=1 Continue For End If Dim dr As DataRow = dt.find("cardID =\'" & r("身份证号") & "\'") If dr IsNot Nothing Then r.DataRow.SetError("身份证号", "已经存在") r.DataRow("标记")=1 End If
Dim d1 As Double Dim d2 As Date \'变量d用于存储转换结果 If r("姓名") <> Nothing Then If cstr(r("姓名")).length > 10 Then r.DataRow.SetError("姓名", "姓名长度不允许超过10") r.DataRow("标记")=1 End If Else r.DataRow.SetError("姓名", "姓名不允许为空") r.DataRow("标记")=1 End If If r("性别") <> "男" AndAlso r("性别") <> "女" Then r.DataRow.SetError("性别", "性别是男或女") r.DataRow("标记")=1 End If If Double.TryParse(r("年龄"),d1) = False Then r.DataRow.SetError("年龄", "非法数字") r.DataRow("标记")=1 End If
If r("出生年月") <> Nothing Then If Date.TryParse(r("出生年月"), d2) = False Then \'如果转换成功 r.DataRow.SetError("出生年月", "无效日期格式") r.DataRow("标记")=1 End If Else r.DataRow.SetError("出生年月", "出生日期不允许为空") r.DataRow("标记")=1 End If
If r("联系方式") <> Nothing Then If cstr(r("联系方式")).length > 11 Then r.DataRow.SetError("联系方式", "联系方式长度超过11") r.DataRow("标记")=1 End If Else r.DataRow.SetError("联系方式", "联系方式不允许为空") r.DataRow("标记")=1 End If
If r("籍贯") <> Nothing Then If cstr(r("籍贯")).length > 20 Then r.DataRow.SetError("籍贯", "籍贯长度不允许超过20") r.DataRow("标记")=1 End If Else r.DataRow.SetError("籍贯", "籍贯不允许为空") r.DataRow("标记")=1 End If
If r("民族") <> Nothing Then If cstr(r("民族")).length > 10 Then r.DataRow.SetError("民族", "民族长度不允许超过20") r.DataRow("标记")=1 End If Else r.DataRow.SetError("民族", "民族不允许为空") r.DataRow("标记")=1 End If
If r("学历") <> Nothing Then If cstr(r("学历")).length > 10 Then r.DataRow.SetError("学历", "学历长度不允许超过20") r.DataRow("标记")=1 End If Else r.DataRow.SetError("学历", "学历不允许为空") r.DataRow("标记")=1 End If If r("健康状况") <> Nothing Then If cstr(r("健康状况")).length > 20 Then r.DataRow.SetError("健康状况", "健康状况不允许超过20") r.DataRow("标记")=1 End If Else r.DataRow.SetError("健康状况", "健康状况不允许为空") r.DataRow("标记")=1 End If
If r("状态") <> Nothing Then If cstr(r("状态")).length > 10 Then r.DataRow.SetError("状态", "状态长度不允许超过10") r.DataRow("标记")=1 End If Else r.DataRow.SetError("状态", "状态不允许为空") r.DataRow("标记")=1 End If
If r("离退休时间") <> Nothing Then If Date.TryParse(r("离退休时间"), d2) = False Then \'如果转换成功 r.DataRow.SetError("离退休时间", "无效日期格式") r.DataRow("标记")=1 End If Else r.DataRow.SetError("离退休时间", "离退休时间不允许为空") r.DataRow("标记")=1 End If If r("专业技术职务") <> Nothing Then If cstr(r("专业技术职务")).length > 20 Then r.DataRow.SetError("专业技术职务", "专业技术职务长度不允许超过20") r.DataRow("标记")=1 End If Else r.DataRow.SetError("专业技术职务", "专业技术职务不允许为空") r.DataRow("标记")=1 End If If r("专业特长") <> Nothing Then If cstr(r("专业特长")).length > 20 Then r.DataRow.SetError("专业特长", "专业特长长度不允许超过20") r.DataRow("标记")=1 End If End If
If r("所在党支部") <> Nothing Then If cstr(r("所在党支部")).length > 20 Then r.DataRow.SetError("所在党支部", "所在党支部长度不允许超过20") r.DataRow("标记")=1 End If End If If r("入党时间") <> Nothing Then If Date.TryParse(r("入党时间"), d2) = False Then \'如果转换成功 r.DataRow.SetError("入党时间", "无效日期格式") r.DataRow("标记")=1 End If End If
[此贴子已经被作者于2018/8/28 14:50:10编辑过]
|