Question

vb中 listview 如何在最下面一行加上合计啊！给出源码再加20分

Dim x
x = ListView1.ListItems.Count + 1
ListView1.ListItems.Add , , Text11.Text '单号
ListView1.ListItems(x).SubItems(1) = Text1.Text '药品编号

Answer 1

Dim sum As Double
With ListView1
sum = 0
For Each k In .ListItems
sum = sum + Val(k)
Next
.ListItems.Add , "合计", sum
'上面是计算第一列
For i = 1 To .ColumnHeaders.Count - 1
sum = 0
For Each k In .ListItems
sum = sum + Val(.FindItem(k).SubItems(i))
Next
.ListItems.Item("合计").SubItems(i) = sum
Next i
End With

追问

不对，因为 在我的listview中第一列有重复，那么Val(.FindItem(k).SubItems(i))的取值就错了，只能取到第一个不重复行的值。

追答

Val(.FindItem(k).SubItems(i)) 改为 Val(k.SubItems(i))