Question

vb中如何对两个窗体中listview求和比较

窗体1的listview中的某列求和1 ， 窗体2的listview中的某列求和2 ， 并自动打出和1，和2的差值。 跪求代码
只要是listview 列列求和的就可以了 马上给分了

Answer 1

Dim i As Long
Dim sum1 As Long ,sum2 As Long
For i = 1 To Form1.ListView1.ListItems.Count
sum1 = sum1 + Form1.ListView1.ListItems.Item(i).SubItems(列)
Next i
For i = 1 To Form2.ListView1.ListItems.Count
sum2 = sum2 + Form2.ListView1.ListItems.Item(i).SubItems(列)
Next i
'差值
msgbox sum2-sum1

Answer 2

添加一个Module1.bas模块，在模块中用Public关键字定义二个变量：A、B，在窗体1将某列的和赋值给变量A，在窗体2将某列的和赋值给变量B，窗体2调用变量A、B即可。