上传电子档后值缺失 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	上传电子档后值缺失 Post By：2019/5/29 11:11:00 [只看该作者] 用户已被锁定

nuoyan88	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/5/29 15:48:00 [只看该作者] 用户已被锁定

nuoyan88	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/5/29 17:00:00 [只看该作者] 用户已被锁定

nuoyan88	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/6/6 13:09:00 [只看该作者] 用户已被锁定

nuoyan88	小大 9楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2019/6/6 15:38:00 [只看该作者] 用户已被锁定

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