以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Excel表导入时，可否设定为第一张工作表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141288)
--  作者：dzy1232016
--  发布时间：2019/9/25 20:03:00
--  [求助]Excel表导入时，可否设定为第一张工作表
[求助]Excel表导入时，可否设定为第一张工作表，而不别知道工作表名字就可以导入？
--  作者：dzy1232016
--  发布时间：2019/9/25 20:10:00
--  
或者是读取工作表
--  作者：狐狸爸爸
--  发布时间：2019/9/25 22:55:00
--  
用代码：
http://www.foxtable.com/webhelp/topics/2334.htm
--  作者：dzy1232016
--  发布时间：2019/9/26 10:54:00
--  
Unable to read beyond the end of the stream.出现这个代码是什么原因
--  作者：有点蓝
--  发布时间：2019/9/26 11:07:00
--  
做什么操作，写什么代码导致的问题？提示是文件无法读取
--  作者：dzy1232016
--  发布时间：2019/9/26 11:29:00
--  
Dim xwj As  new  OpenFileDialog
xwj.Filter="Excel文件(*.xls)|*.xls"
If xwj.ShowDialog=DialogResult.Ok Then
    Dim zy As new Merger
    DataTables("比例计算").DeleteFor("")
    zy.SourcePath=xwj.FileName
    Dim Book As New XLS.Book(xwj.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    messagebox.show(Sheet.name)
    zy.SourceTableName=Sheet.name+"$"
    zy.Fields="数量,采购价,通用名,基药类别,采购类别,招标单元信息,配送企业"
    zy.DataTableName="比例计算"
    zy.Format="Excel"
    zy.Merge()
End If
--  作者：有点蓝
--  发布时间：2019/9/26 11:31:00
--  
使用这种方式导入：http://www.foxtable.com/webhelp/topics/2334.htm

XLS.Book和Merger同时使用同一个文件会有冲突
--  作者：dzy1232016
--  发布时间：2019/9/26 12:13:00
--  

Dim xwj As  new  OpenFileDialog
xwj.Filter="Excel文件(*.xls)|*.xls"
If xwj.ShowDialog=DialogResult.Ok Then
    DataTables("比例计算").DeleteFor("")
    Dim Book As New XLS.Book(xwj.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("比例计算").StopRedraw()
    Dim nms() As  String = {"数量","采购价","通用名","基药类别","采购类别","招标单元信息","配送企业"}
    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()
  End If

改成这样还是这个错误
--  作者：有点蓝
--  发布时间：2019/9/26 13:30:00
--  
execl文件发上来测试一下
--  作者：dzy1232016
--  发布时间：2019/9/26 14:54:00
--  
这个表麻烦看下