主题：求助：导入导出按钮问题？

为什么总报错？

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,成绩录入,Button2,Click
详细错误信息：
该字符串未被识别为有效的布尔值。不能在 是否合格 列中存储 <1>。所需类型是 Boolean。
该字符串未被识别为有效的布尔值。
按钮代码如下：

Dim Book As New XLS.Book("D:\成绩录入表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("成绩录入表").StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim sfzhm As String = sheet(n,0).Text
    Dim dr As DataRow = DataTables("成绩录入表").Find("身份证号码 = '" & sfzhm & "'")
    If dr Is Nothing Then '如果不存在同编号的订单
        dr =  DataTables("成绩录入表").AddNew()
    End If
    For m As Integer = 0 To Tables("成绩录入表").cols.count- 1
        dr(Tables("成绩录入表").cols(m).name) = Sheet(n,m).Value
    Next
Next
Tables("成绩录入表").ResumeRedraw()

说明你某一列是逻辑列. 1赋值不上去

谢谢！现在又报新的错：

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,成绩录入,Button2,Click
详细错误信息：
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。
Dim Book As New XLS.Book("D:\360云盘\0-准考证信息表\成绩录入表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("成绩录入表").StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim sfzhm As String = sheet(n,0).Text
    Dim dr As DataRow = DataTables("成绩录入表").Find("身份证号码 = '" & sfzhm & "'")
    If dr Is Nothing Then '如果不存在同编号的订单
        dr =  DataTables("成绩录入表").AddNew()
    End If
    For m As Integer = 0 To Tables("成绩录入表").cols.count- 1
        If m=21 Then
            dr(Tables("成绩录入表").cols(m).name) = IIF(Sheet(n,m).Value=1,True,False)
        Else
            dr(Tables("成绩录入表").cols(m).name) = Sheet(n,m).Value
        End If
    Next
Next
Tables("成绩录入表").ResumeRedraw()

同理的,你某列是数值列,控制无法赋值给数值.  采用同样的方式判断就好了If m=21 Then
            dr(Tables("成绩录入表").cols(m).name) = IIF(Sheet(n,m).Value="",nothing,Sheet(n,m).Value)
        Else
            dr(Tables("成绩录入表").cols(m).name) = Sheet(n,m).Value

谢谢！！！！！！