VB中MSFlexGrid用一个循环语句将网格中第一列的数顺序相加,哪位朋友指导下哈,我这个不成无法运行

来源:百度知道 编辑:UC知道 时间:2024/05/23 02:05:28
Dim yy,y As Integer
Dim uu As String
yy = 0
y = 1
uu = MSFlexGrid1.TextMatrix(y, 0)
Do While Not uu = ""
yy = yy + CInt(uu)
y = y + 1
Loop

Dim yy,y As Integer
Dim uu As String
yy = 0
y = 1
uu = MSFlexGrid1.TextMatrix(y, 0)
Do While Not MSFlexGrid1.TextMatrix(y, 0) = ""
uu = MSFlexGrid1.TextMatrix(y, 0)
yy = yy + CInt(uu)
y = y + 1
Loop

思路似乎不对。

Dim yy,y As Integer
Dim uu As String
yy = 0
y = 1

Do While Not MSFlexGrid1.TextMatrix(y, 0) = ""
uu = MSFlexGrid1.TextMatrix(y, 0)
yy = yy + CInt(uu)
y = y + 1
Loop

在Do While Not uu = "" 语句下面再增加
uu = MSFlexGrid1.TextMatrix(y, 0)语句,
否则第二次循环过来,uu的值没有改变。