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

表里有几十列，其中有些列是空的，这些列是要在导出到EXCEL后进行批量填充，然后再导入回窗口表，表里原有的数据如没变化则保持原样，空值的则填充，这在代码方面是不是一定要每一列都要写上，那是很长很长......，有没有简洁些的？

Dim nms() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","是否合格","理论考否","考试性质","年月","场次","考场","座位号","考试时间","考试地点","准考证号码","备注","照片"}
我的意思是：比如上面这句：如果我的表比这列还要多，是不是都要写上去？按钮代码我写好了，用身份证号码作唯一标识。

补充一下：表里有些列的数据基本上是不会变的，也不会去动，只是一些空值的列要先导出去批量加好数据后再导入

好的，我先试试，不行再向您讨教。

搞不定，上例子：

If dlg.ShowDialog =DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
   
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("成绩录入表").ResumeRedraw()
    Tables("成绩录入表").StopRedraw()
    Dim nms() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","是否合格","理论考否","考试性质","年月","场次","考场","座位号","考试时间","考试地点","准考证号码",……"备注","照片"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim sfzhm As String = sheet(n,4).Text
        Dim dr As DataRow = DataTables("成绩录入表").Find("身份证号码 = '" & sfzhm & "'")
        If dr Is Nothing Then '如果不存在同编号的订单
            dr =  DataTables("成绩录入表").AddNew()
        End If
        For m As Integer = 0 To nms.Length - 1
            If DataTables("成绩录入表").DataCols(nms(m)).IsBoolean Then
                If Sheet(n,m).Value = 0 Then
                    dr(nms(m)) = False
                Else
                    dr(nms(m)) = True
                End If
            Else If DataTables("成绩录入表").DataCols(nms(m)).Expression > "" Then
                '表达式列
            Else
                dr(nms(m)) = Sheet(n,m).Value
            End If
        Next
    Next
    Tables("成绩录入表").ResumeRedraw()
End If

下面这句代码中还有很多列没写入：

Dim nms() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","是否合格","理论考否","考试性质","年月","场次","考场","座位号","考试时间","考试地点","准考证号码",……"备注","照片"}

 

 

为什么总报错？

.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()

谢谢！现在又报新的错：

.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()

谢谢！！！！！！