主题：[求助]关于读取Excel

如图,还有附件

在没有分清单的情况下成功读取采购单,这一部分我已写好,主要问题在采购单有分清单的情况下

怎么读取分清单的内容,

要求:1、先读取采购单

       2、判断 是否有分清单 = “是”

       3、读取分清单的时候，编码在采购单能找到的才能添加到窗口中的分清单中

       4、窗口中的分清单还要有单价、数量、金额 列，并计入总计 （要根据编码到采购清单中获取）

ps：具体例子我在上一个话题中有上传

问题：在读取分清单的时候是先查找采购单的编码，有的话再继续往下读取，还是全部读取

         了之后，全部判断一下是不是在采购单中有此编码才新增在窗口中

         我的整个思路其实是混乱的，如果有更好的方法，请帮忙，谢谢   

 

此主题相关图片如下：1.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 microsoft office excel 工作表.xlsx

此主题相关图片如下：2.png

之前不是说过要怎么处理了吗？不是一样？

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105363&skin=0

 

你要怎么读取数据？具体例子发上来说明。

甜大,Excel文档有sheet(0)、sheet（1），在 是否有发货分清单 = 否的时候，可以直接只读取sheet（0），在 = “是”

的时候，要读取sheet（1）的内容，并加载到分清单的窗口中，可以看1楼的窗口图片，我初步设想的窗口时那样的

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:模拟采购订单.rar

此主题相关图片如下：1.png


此主题相关图片如下：2.png

1、读取某个单元格的值，你只需要知道其坐标即可，【是/否】你不知道怎么获取？

 

2、现在你是不会读取sheets(0)或者sheets(1)？直接循环每一行，读取不就可以了？这部分有困难？

 

3、你表格要加上一个【分清单表】，把你需要的数据合并进去。你哪一步不会做？

 

 

 

 

如图: 问题如图：只添加了一行，并且赋不了值，mgsbox（“测试2”）那里的代码执行不了

       在循环了一遍sheet1之后,希望根据读取的编码把数据放到表中

       然后用分清单表中的数据跟表A中的数据比对,有相同的编码,就把

       对应编码的数据的单价赋值到分清单中,金额 = 单价*数量,

       还有一个问题：然后当有读取有包含第一批发货的时候,发货批次

       的列的值为第一批发货,如读物的值包含第二批发货,则发货批次列

       为第二批发货，请问，当我全部读取excel文件，判断包含第一批发货的条件后，该怎么做，

       因为后面有第二批发货，也是在第一批发货的rows 后面，这样的话发货批次列就会被全部

       赋值为第一批发货了，这样并不符合我的实际需求

 

此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png

汗，根本看不懂你写的什么代码。

 

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet2 As XLS.Sheet = book.Sheets("sheet2")
    For i As Integer = 0 To sheet2.Rows.count-1
        If sheet2(i,0).text = "编码" Then
            For j As Integer = i+1 To sheet2.rows.count-1
                If sheet2(j,0).text.contains("小计") Then
                    i = j
                    Exit For
                End If
                output.show(sheet2(j,0).text & " " & sheet2(j,1).text & " " & sheet2(j,2).text)
            Next
        End If
    Next
End If

msgbox(sheet2(j,0).text & " " & sheet2(j,1).text & " " & sheet2(j,2).text  & " " &  sheet2(j,3))

甜大,最后一个sheet2(j,3).text 是数量,为什么报错阿

msgbox(sheet2(j,0).text & " " & sheet2(j,1).text & " " & sheet2(j,2).text  & " " &  sheet2(j,3).Text)

问题如图:

 

此主题相关图片如下：1.png


此主题相关图片如下：2.png