新手,求百分比问题(VB.ENT)

[RHKylix]

数据是用ListVeiw显示,当ListVeiw只有一行是计算结果正确,多于一行,计算结果不对,什么原因?帮帮忙,在线等,我是新人哦.代码如下:
Private Sub AddPercetRowToLstvData()
Dim I As Integer, J As Integer
Dim ThePercentItem As ListViewItem
Dim ValResult As Double
Dim ValStr As Double, ValStr1 As Double
If LstVData.Items.Count > 0 Then
ThePercentItem = New ListViewItem()
ThePercentItem.SubItems(0).Text = "百分比(%)"
For J = 1 To LstVData.Columns.Count - 1
ThePercentItem.SubItems.Add("") : ThePercentItem.SubItems(J).Text = "0"
Next
For J = 1 To LstVData.Columns.Count - 1
ValStr = Val(LstVData.Items(1).SubItems(J).Text)
ValStr1 = Val(LstVData.Items(1).SubItems(10).Text)
ValResult = ValStr / ValStr1
ThePercentItem.SubItems(J).Text = (ValResult).ToString
Next
'Format
For J = 1 To ThePercentItem.SubItems.Count - 1
ThePercentItem.SubItems(J).Text = Format(Val(ThePercentItem.SubItems(J).Text), "#0.00%")
Next
'Add
LstVData.Items.Insert(0, ThePercentItem)
End If
End Sub

[RHKylix]

刚才是求行的百分比,求列的百分比呢?怎样插入一列数据
插入一行LstVData.Items.Insert(1, ThePercentItem)

[rock29]

我苯,找不出错,你把format语句放到ValResult = ValStr / ValStr1之后试试,当然格式化的就不是SubItems(J).Text 而是ValResult

[dzliang21]

笨，没看懂

[RHKylix]

当多于1行时
他计算的是下一行,而不是第一行.

[RHKylix]

解决了,第0行开始就行了
ValStr = Val(LstVData.Items(0).SubItems(J).Text)
ValStr1 = Val(LstVData.Items(0).SubItems(10).Text)

[gwhong211]

来晚了
ValStr = Val(LstVData.Items(0).SubItems(J).Text)
ValStr1 = Val(LstVData.Items(0).SubItems(10).Text)

LstVData.Items.Insert(1, ThePercentItem)

[kexian]

ThePercentItem.SubItems(J).Text = Format(val(ThePercentItem.SubItems(J).Text), "#0.00")&"%"

[gwhong211]

还不是一样啊楼主,我相信你自己能搞定