|
Private Sub Command1_Click()
Dim d, i&, k, t
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To MSHFlexGrid1.Rows - 1
d(MSHFlexGrid1.TextMatrix(i, 1)) = d(MSHFlexGrid1.TextMatrix(i, 1)) + Val(MSHFlexGrid1.TextMatrix(i, 4))
Next
k = d.keys
t = d.items
With MSHFlexGrid2
.Cols = 2
.Rows = d.Count + 1
.TextMatrix(0, 0) = "学校"
.TextMatrix(0, 1) = "数量"
For i = 0 To d.Count - 1
.TextMatrix(i + 1, 0) = k(i)
.TextMatrix(i + 1, 1) = t(i)
Next
End With
Set d = Nothing
Private Sub Command2_Click()
Dim d, i&, k, t, s
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To MSHFlexGrid1.Rows - 1
s = MSHFlexGrid1.TextMatrix(i, 1) & "|" & MSHFlexGrid1.TextMatrix(i, 2)
d(s) = d(s) + Val(MSHFlexGrid1.TextMatrix(i, 4))
Next
k = d.keys
t = d.items
With MSHFlexGrid3
.Cols = 3
.Rows = d.Count + 1
.TextMatrix(0, 0) = "学校"
.TextMatrix(0, 1) = "班级"
.TextMatrix(0, 2) = "数量"
For i = 0 To d.Count - 1
s = Split(k(i), "|")
.TextMatrix(i + 1, 0) = s(0)
.TextMatrix(i + 1, 1) = s(1)
.TextMatrix(i + 1, 2) = t(i)
Next
End With
Set d = Nothing
End Sub |
|