通过版主的指导，已实现需求。但是又碰到另一个问题。我想用OpenFileDialog对话框方式选择excel，而不是只能指定名称和目录读取，请教如何实现。代码如下：DataTables("随货单引入").DataRows.Clear() '清除以前引入的数据
Dim Book As New XLS.Book("c:\test\工作簿3.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim nms() As String = {65,"商品编码","商品名称","规格","生产企业","产地","单位","通用名称","按批号开piao"}
For
n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,1).Text
Dim dr As DataRow = DataTables("随货单引入").Find("商品编码 = '" & bh & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("随货单引入").AddNew()
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n,m).Value
Next
Else
'如果存在就合并数量
dr("销售数量") = dr("销售数量") + Sheet(n,10).Value
End If
Next
DataTables("随货单引入").DeleteFor("单位 Is Null")'删除合计行
加好友 
发短信
Post By：2025/4/13 8:21:00 [显示全部帖子]
