'''
Dim Book As New XLS.Book("C:\Users\朱建斌\Documents\Foxtable项目\PDF读取项目\箱单\伊芙丽\伊芙丽9c4100561.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim s As String = Sheet(1,3).Value
Dim d As Date = cdate(s.Split("：")(1)) '.replace("/","-")
Output.Show(d)
Dim s1() As String = {"品类","款号","XXXS","XXS","XS","S","M","L","XL","XXL","XXXL","F","60","65","70","75","80","85","90","95","100","105","110","115","120","125","130","135","140","145","150","155","160","165","170","175","180","185","190","195","200"}
Dim dict As new Dictionary(of String,Integer)
For i As Integer = 0 To Sheet.Cols.Count - 1
Dim k As Integer = Array.IndexOf(s1, Sheet(2,i).Text)
If k > -1
dict.Add(s1(k),i)
End If
Next
Dim d2 As new Dictionary(of String,Integer)
Dim d3 As new Dictionary(of String,String)
For i As Integer = 3 To Sheet.Rows.Count - 1
Dim pl As String = Sheet(i,dict("品类")).text
If pl > "" Then
Dim kh As String = Sheet(i,dict("款号")).text
If d3.ContainsKey(kh) = False Then d3.Add(kh,pl)
Dim sum As Integer = 0
For j As Integer = 2 To s1.Length - 1
sum += val(Sheet(i,dict(s1(j))).text)
Next
If d2.ContainsKey(kh) Then
d2(kh) = d2(kh) + sum
Else
d2.Add(kh,sum)
End If
End If
Next
Dim r As Row
For Each key As String In d2.Keys
r = Tables("表A").AddNew
r("款式名称") = d3(key)
r("款号") = key
r("数量") = d2(key)
r("出货日期") = d
Next
此主题相关图片如下：01.jpg
这是怎么回事
加好友 
发短信
Post By：2021/4/12 7:39:00 [显示全部帖子]
