以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  粘贴品名生成结果是对的，选择文件生成的结果就不对，实在找不到原因了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112973)
--  作者：xxfoxtable
--  发布时间：2018/1/5 22:08:00
--  粘贴品名生成结果是对的，选择文件生成的结果就不对，实在找不到原因了

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:粘贴.rar

粘贴品名生成结果是对的，选择文件生成的结果就不对，实在找不到原因了
--  作者：有点蓝
--  发布时间：2018/1/5 22:40:00
--  
按什么步骤操作是对的？按什么步骤操作是错误的？
正确的数据应该是什么样的？
--  作者：xxfoxtable
--  发布时间：2018/1/6 8:41:00
--  

选择文件的结果，和粘贴品名的结果不一样，正确的结果应该是粘贴品名数据的结果，目录下有一个示例文件
--  作者：有点蓝
--  发布时间：2018/1/6 9:18:00
--  
麻烦截图说明一下测试步骤，以及正确的和错误的结果对比
--  作者：xxfoxtable
--  发布时间：2018/1/6 12:19:00
--  

第一个测试选择文件，目录下有一个文件，右面会显示结果        第二个测试是复制目录下文件的所有品名，粘贴到左面的table，点显示，右面table出现结果           第二个测试的结果是对的，第一个测试不对
--  作者：有点蓝
--  发布时间：2018/1/6 14:30:00
--  
有问题的数据在Execl中后面有多余的空格，另外导入后再一起保存，可有效提高导入速度

    DataTables("粘贴数据").StopRedraw()
    Dim nms() As String = {"品名"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim bh As String = sheet(n,0).Text
        If  Sheet(n,1).Value="" Then
            msgbox("品名不能为空!")
            Return
        End If
        
        \'Dim dr As DataRow = DataTables("商品档案").sqlFind("品名 = \'" & bh & "\'")
        \'If dr Is Nothing Then     \'如果不存在同编号的订单
        Dim dr As DataRow =  DataTables("粘贴数据").AddNew()
        dr("粘贴数据") = Sheet(n,1).Value.trim()  \'证件号码
        \'book.Save(fl)
    Next
    DataTables("粘贴数据").save
    Tables("粘贴数据").ResumeRedraw()
Else
    Return
End If
--  作者：xxfoxtable
--  发布时间：2018/1/6 15:53:00
--  

For Each r As Row In Tables("销售临时").GetCheckedRows
    Dim book As new XLS.Book(Vars("name"))
    Dim sheet As XLS.Sheet = book.Sheets("表1")
    \'Sheet(r("编号"),1).Value=r("品名")
    \'Sheet(r("编号"),2).Value=r("封装")
    \'Sheet(r("编号"),3).Value=r("数量")
    Sheet(r("编号"),4).Value=r("单价")
    \'Sheet(r("编号"),5).Value=r("金额")
    Sheet(r("编号"),6).Value=r("区域")
    Sheet(r("编号"),7).Value=r("电话")
    Sheet(r("编号"),8).Value=r("仓库")
    Sheet(r("编号"),9).Value=r("备注")
    book.Save(Vars("name"))
Next
msgbox("添加完成!!")

我向表里写，写上不呢？name我定义了一个全部变量

选择文件时加入了一句代码Vars("name")= dlg.FileName
--  作者：有点蓝
--  发布时间：2018/1/6 16:07:00
--  
有必要使用全局变量？路径正确吗？
msgbox(Vars("name"))

Sheets("表1")，名称是"表1"吗？

r("编号")和Execl的行索引对应的上吗？
--  作者：xxfoxtable
--  发布时间：2018/1/6 16:11:00
--  

你说的这些都没有错，我只能想出来用全局变量，不知道用什么好，现在表里什么也没写上
--  作者：有点蓝
--  发布时间：2018/1/6 16:16:00
--  
上传有问题的实例测试