主题：导入问题

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