请教：以数据集方式操作excel遇到问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：以数据集方式操作excel遇到问题

共有2407人关注过本帖树形打印复制链接主题：请教：以数据集方式操作excel遇到问题

bahamute

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1425 积分：11332 威望：0 精华：0 注册：2008/9/1 22:20:00

请教：以数据集方式操作excel遇到问题 发帖心情

Post By：2015/8/27 22:17:00 [只看该作者]

代码如下，横线部分代码目的是防止导入非数字，测试发现，excel表里明明是汉字，代码却不提示错误，难不成生成dt1表的时候，就已经把字符都给转成0了？因为加入msg测试，弹出的应该为字符的值都变成了0.

Dim cmd As New SQLCommand

Dim dt1 As DataTable

Dim Sheet1 As String

Sheet1=e.Form.Controls("ComboBox1").value

cmd.Connec

cmd.CommandTex

dt1 = cmd.ExecuteReader

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

For Each dr As DataRow In dt1.DataRows

For i0 As Integer=0 To Values2.Length-1

If Values2(i0) = "姓名" Then

Continue For

End If

If IsNumeric(dr(Values2(i0)))=False Then

MessageBox.Show("非数字错误!" & vbcrlf & "位置:" & vbcrlf & "姓名:" & dr("姓名") & vbcrlf & "错误值:" & dr(Values2(i0)) & vbcrlf & "请检查.","提示")

e.Form.Close()

Return

End If

[此贴子已经被作者于2015/8/27 22:19:39编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/27 22:32:00 [只看该作者]

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