主题：[求助]订单明细表中导入TXT文件时，要求相同商品的数量汇总导入

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

点击浏览该文件:相同商品的数量汇总到入.rar

导入按钮的代码是这样的，要怎么修改，现在老是只能导入TXT文件的中的第一条，其他的导入不了

Dim strs As String = FileSys.ReadAllText(e.Form.Controls("ComboBox1").Text,Encoding.Default)
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)
Tables("订单.订单明细").StopRedraw()
For i As Integer = 0 To rs.Length - 1
    Dim cs() As String = rs(i).Split(",") '以","为记号将每行的内容拆分为两部分
    If cs.Length = 2 Then
        Dim tm As String = cs(0)
        Dim sl As Integer = cs(1)
        Dim er As Row
        For Each r As Row In Tables("订单.订单明细").Rows  '判断是否存在这行
            If r("条码号")= tm Then
                er = r
                er("数量") = er("数量") + cs(1)
            End If
        Next
        If er Is Nothing Then  '不存在就增加
            er = Tables("订单.订单明细").AddNew
            er("条码号")= tm
            er("数量")= sl
        End If
    End If
Next
Tables("订单.订单明细").ResumeRedraw
e.Form.Close() '关闭本窗口