主题：上传电子档后值缺失

换一种方式导入

 

http://www.foxtable.com/webhelp/scr/2334.htm

 

参考

 

http://www.foxtable.com/webhelp/scr/0328.htm

 

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK  Then
    OutPut.Show("你选择了" & dlg.FileNames.Length & "个文件, 分别是:")
    For  Each fl  As  String  In dlg.FileNames
        Output.Show(fl)
        Dim  Book As New XLS.Book(fl)
        Dim  Sheet As XLS.Sheet = Book.Sheets(0)
        Tables("三坐标检测_检测报告").StopRedraw()
        '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
        Dim nms() As  String = {"项目","实测值","理论值","偏差","正公差","负公差","评定","备注"}
        '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
        For n As Integer = 1 To Sheet.Rows.Count -1
            Dim r As  Row = Tables("三坐标检测_检测报告").AddNew()
            For  m As  Integer = 0 To nms.Length - 1
                r(nms(m)) = Sheet(n,m).Value
            Next
        Next
        Tables("三坐标检测_检测报告").ResumeRedraw()
       
    Next
End If

具体excel文件发上来测试。

你贴出的excel文件，我测试【高速合并】可以正常导入数据啊。请上传不能正确导入数据的excel文件。