主题：请教：以数据集方式操作excel遇到问题

Dim dt1 As DataTable

Dim Values2 As String() = {"出勤天数","事假天数","病假天数","中班个数","夜班个数","平日加班个数","节日加班个数","加点小时数","年月","姓名"}

For i0 As Integer=0 To Values2.Length-1
    If Values2(i0) = "姓名" Then
        Continue For
    Else
        If dt1.DataCols(values2(i0)).IsNumeric = False Then
            For Each dr As DataRow In dt1.DataRows
                Dim num As Double
                If Double.TryParse(dr(values2(i0)), num) = False Then
                    MessageBox.Show("非数字错误!" & vbcrlf & "位置:" & vbcrlf & "姓名:" & dr("姓名") & vbcrlf & "错误值:" & dr(Values2(i0)) & vbcrlf & "请检查.","提示")
                   
                    e.Form.Close()
                   
                    Return
                   
                End If
            Next
        End If
    End If
Next