以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表回填  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153534)
--  作者：朱女士
--  发布时间：2020/8/14 10:10:00
--  报表回填

老师您好！

   我有一个excel模板，我想将此表数据直接读取到foxtable数据表中，怎么实现？谢谢！
--  作者：有点蓝
--  发布时间：2020/8/14 10:13:00
--  
如果是标准表格参考：http://www.foxtable.com/webhelp/topics/0187.htm、http://www.foxtable.com/webhelp/topics/2334.htm
--  作者：朱女士
--  发布时间：2020/8/14 10:19:00
--  
采购订单
订单号:WD2020081401
供  方： 内蒙古华洋电工层压木有限责任公司 需  方：沃德电力设备有限公司
收件人： 潘(部长)  发件人：
电  话： 电  话：
传  真： 传  真：
批  准：
潘部长：您好！
我公司在贵公司订购一批电工层压木板，具体规格如下
序号 名称 规 格(mm) 数 量(张) 到货日期 备注
1
2
3
4
5
6
7
8
9
10
合  计 0
要求: 1、该批次原料板是为重庆ABB变压器公司加工产品，原材料质量及外包装严格按重庆ABB公司质量标准执行，随货附本批次产品送货清单、  装箱清单、 合格证、检测报告；；
2、要求密度1.07-1.08，厚度偏差0-2mm，不允许有负偏差；不允许有发黑   现象，严禁含金属物，严禁开胶、炭化、漏片等； 
3、请按时到货，本订单有效期为1个月；
4、收货地址：重庆市涪陵区聚源大道199号2号厂房；
5、收货人：陈路平      电话：15982229805
重庆沃德电力设备有限公司
--  作者：有点蓝
--  发布时间：2020/8/14 10:25:00
--  
不规则表格参考：http://www.foxtable.com/webhelp/topics/2492.htm
--  作者：朱女士
--  发布时间：2020/8/14 10:51:00
--  

老师：

    我的代码出错：未能找到路径“G:\\采购表”的一部分。

    For Each file As String In filesys .GetFiles("G:\\采购表")
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("ylcgmxb").AddNew
        dr("名称") = sheet(11,2).Text
        dr("描述及规格") = sheet(11,3).text
        dr("数量") = sheet(11,4).text
        dr("到货日期") = sheet(11,5).text
        dr("备注") = sheet(11,6).text
        dr("订单号") = sheet(2,4).text
        dr("客户") = sheet(3,2).text
          End If
Next
--  作者：朱女士
--  发布时间：2020/8/14 10:52:00
--  

表格不是用模板辅助器设计的，是直接在excel建立的。
--  作者：有点蓝
--  发布时间：2020/8/14 11:15:00
--  
提示很明显了，不存在这个路径："G:\\采购表"
--  作者：朱女士
--  发布时间：2020/8/14 11:20:00
--  
换了几个路径都是这个提示啊
--  作者：有点蓝
--  发布时间：2020/8/14 11:29:00
--  
说明这些路径都不存在，或者没权限访问
--  作者：朱女士
--  发布时间：2020/8/14 12:08:00
--  
都有啊而且本机是服务器