＋设为首页 ＋添加到收藏夹
MSHFLEXGRID现在显示为:
姓名 数量 成功数
A 5 2
B 3 3
C 2 1
想达到的目的:
姓名 数量 成功数
A 5 2
B 3 3
C 2 1
合计 10 6
我写的语句
MSHFlexGrid1.AddItem "合计"
For j = 1 To MSHFlexGrid1.Cols - 1
For i = 1 To MSHFlexGrid1.Rows - 1
intNum = intNum + Int(MSHFlexGrid1.TextMatrix(i, j))
Next i
MSHFlexGrid1.AddItem intNum & vbTab
Next j
运行程序报错"类型不匹配"
请问大家如何修正,谢谢
呵呵，如果只是解决你的问题
测试通过
Private Sub Command1_Click()
Dim i As Integer
Dim intNum1 As Integer
Dim intNum2 As Integer
For i = 2 To MSHFlexGrid1.Rows - 1
intNum1 = intNum1 + Int(MSHFlexGrid1.TextMatrix(i, 1))
intNum2 = intNum2 + Int(MSHFlexGrid1.TextMatrix(i, 2))
Next
MSHFlexGrid1.AddItem "合计" & vbTab & intNum1 & vbTab & intNum2
End Sub
