主题：读取Excel报表问题

问题如图: 这是一个批量读取的按钮,因实际需求,现在有的Excel会有两个采购订单号或者多个,

在导入文件的时候已经对表做了addnew()的操作,所以现在只能读取第一个采购订单编号,

请问我怎么判断在读取到sheet1(7,0).value不是空值的时候添加一行,(如果是在s1(k)赋值之后再判断添加,在循环里面,会添加多行,不符合实际需求)

 

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


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


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

msgbox(sheet1(7, i).Text)

If sheet1(7, i).Text > "" Then

 

End If

甜大,改了也还是没达到效果,是不是我思路不对阿,在循环里面addnew,会不断的增加行

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


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


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

加在第一个循环的后面，也就是

 

for i as integer = 3 to sheet1.Rows.count-1

    If sheet1(7, i).Text > "" Then

 

    End If

 如果还有问题，把实例发上来测试。

数据更加不对了,看例子

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

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

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

点击浏览该文件:提货申请表-苏州xxx项目增补.xls

Dim xls As String
Dim s1 As String() ={"办事处","销售人员","采购订单号","项目名称","代理商名称","提货金额","销售合同签订情况","订单类型","提货申请表"}
Dim s,fname As String
Dim xs As Double
Dim sqbname = "提货申请表"
Dim sqb As Boolean = False
Dim n As Integer = 0
Dim m As Integer = Tables("提货申请单").Rows.Count

Dim drs = DataTables("提货申请单").DataRows
For Each dr As DataRow In drs
    sqb = False
    fname = dr("路径") & dr("文件名")
    MsgBox("读取文件fname=" & fname )
    xls = dr("文件名")
    MsgBox("读取文件xls=" & xls )
    If dr("路径") <> "" AndAlso dr("文件名") <> "" AndAlso FileSys.FileExists(fname) Then
        Dim book As new XLS.Book(fname)
        Dim sheet1 As XLS.Sheet = book.Sheets(0)
        For j As Integer = 0 To sheet1.Cols.Count - 1
            If DataTables("提货申请单").DataCols.Contains(sheet1(3, j).text) Then
                dr(sheet1(3,j).text) = sheet1(4,j).text
            End If
        Next
        For i As Integer = 6 To sheet1.Rows.Count-1
            If sheet1(i,0).text > "" Then
                Dim r As Row = Tables("提货申请单").AddNew()
                r("序号") = dr("序号")
                r("文件名") = dr("文件名")
                r("办事处") = dr("办事处")
                r("销售人员") = dr("销售人员")
                r("路径") = dr("路径")
                For j As Integer = 0 To sheet1.Cols.Count - 1
                    If DataTables("提货申请单").DataCols.Contains(sheet1(5, j).text) Then
                        r(sheet1(5,j).text) = sheet1(i,j).text
                    End If
                Next
               
               
            End If
        Next
    End If
Next

For i As Integer = drs.count-1 To 0 Step -1
    drs(i).delete
Next

Tables("提货申请单").AutoSizeCols

谢谢甜大,果然思路最重要,我一直停留在先全部循环一遍再判断的胡同里